1. составьте блок-схему алгоритма и программу вычисления площади параллелограмма по одной из сторон и высоте. 2. составьте программу вычисления площади и периметра квадрата. 3. составьте программу вычисления кинетической энергии тела. 1. составьте блок-схему алгоритма и программу выводана экран всех нечетных двузначных чисел. 2. составьте блок-схему алгоритма и программу вычисления суммы всех трехзначных чисел, кратных 5.

1)program s_parallelogramm; vara,h,s: real; begin write('основание = '); readln(a); write('высота = '); read(h); if ((a=0) or (a< 0)) or ((h=0) or (h< 0)) then writeln('ошибка! значения основания и высоты должно быть натуральными числами') else begin s: =a*h; writeln('площадь (s) параллелограмма = ', s); end; end.

2)program sp_kvadrata; vara,p,s: real; begin write('сторона квадрата = '); readln(a); p: =4*a; s: =sqr(a); writeln('периметр (p) квадарата = ', p); writeln('площадь (s) квадарата = ', s); end.

3)program e_kinet; varm,v,e: real; begin write('масса тела (m, кг) = '); readln(m); write('скорость тела (v, км/ч) = '); readln(v); e: =m*sqr(v)/2; writeln('кинетическая энергия (ек, дж) = ', e); end.

1)program vivod_chisel; vari, a: integer; begin a: =11; for i: =1 to 45 do begin write(a: 3); a: =a+2; end; end.

2)program sym_trex_chisel_krat5; varmas: array[1..900] of integer; i,a,sym: integer; begin a: =100; sym: =0; for i: =1 to 900 do begin mas[i]: =a; if mas[i] mod 5 = 0 then sym: =sym+mas[i]; a: =a+1; end; writeln('сумма трехзначных чисел, кратных 5 = ', sym); end.