Question

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

Answer 1

2.

var
a1,a2,a3,a4,a5,a:integer;
b1,b2,b3,b4,b5,b:integer;
begin
readln (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. var
a1,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;
begin
readln (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.