Написать програмы на паскале №1 в области 12 райнов. известны количество жителей каждого района (в тысячах человек) и плотность населения в нем (тыс. чел./ км2 определить общую площадь территории области. №2 известны результаты двух спортсменов-пятиборцев в каждом из пяти видов спорта в . определить сумму , полученных каждым спортсменом.

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.

Виртуальное общения - знакомая ситуация для нашего времени. люди знакомится в социальных сетях, общаются, иногда встречаются реальной жизни. это может быть полезным - пообщаться с человеком, который тебя не знает, услышать его непредвзятое мнение. сеть дает расслабиться. ты можешь быть кем угодно, с какой угодно внешностью и характером. это дает свободу мошенникам и разнообразным шутникам, которым нечего делать, кроме как издеваться над людьми. в этом заключается вред виртуального общения - ты не знаешь с кем переписываешься. я не против такого общения, но нужно быть осторожным.

Var     i,z: integer;     a: array[1..2,1..3]of integer;     begin for i: =1 to 2 do     begin   write('введите числитель и знаменатель дроби (через пробел): ');   readln(a[1,i],a[2,i]);     end; a[2,3]: =a[2,1]*a[2,2];   a[1,3]: =a[1,1]*a[2,2]+a[1,2]*a[2,1]; z: =a[1,3] div a[2,3]; a[1,3]: =a[1,3] mod a[2,3]; i: =a[2,3]; while i> 1 do     begin     if (a[2,3] mod i=0) and (a[1,3] mod i=0) then       begin       a[2,3]: =a[2,3] div i;       a[1,3]: =a[1,3]div i;       i: =a[2,3];       end       else i: =i-1;     end; write(a[1,1],'/',a[2,1],'+',a[1,2],'/',a[2,2],'='); if z> 0 then write(z); if a[1,3]> 0 then writeln('(целая часть)  ',a[1,3],'/',a[2,3],'(дробная часть)') end.