ПОМОГИТЕ НАПИСАТЬ ПРОГРАМЫ НА ПАСКАЛЕ №1 В области 12 райнов. Известны количество…

Question

40

ПОМОГИТЕ НАПИСАТЬ ПРОГРАМЫ НА ПАСКАЛЕ №1 В области 12 райнов. Известны количество жителей каждого района (в тысячах человек) и плотность населения в нем (тыс.чел./ км 2). Определить общую площадь территории области.№2 Известны результаты двух спортсменов-пятиборцев в каждом из пяти видов спорта в баллах. Опре делить сумму баллов, полученных каждым спортсменом.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

tek67 · Accepted Answer

58

tek67

13 марта 2023

2.vara1,a2,a3,a4,a5,a: integer; b1,b2,b3,b4,b5,b: integer; beginreadln (a1,a2,a3,a4,a5); readln (b1,b2,b3,b4,b5); a: =a1+a2+a3+a4+a5; b: =b1+b2+b3+b4+b5; writeln (a,',b); end. 1. vara1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12: integer; b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12: integer; n: integer; beginreadln (a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12); readln (b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12); n: =a1*b1+a2*b2+a3*b3+a4*b4+a5*b5+a6*b6+a7*b7+a8*b8+a9*b9+a10*b10+a11*b11+a12*b12; writeln (n); end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: