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.

var a: array[1..50] of integer; i,f, n: integer;

begin write('n='); readln(n); for i : = 1 to n do begin write('a', i, '='); readln(a[i]); end; f : = 0; writeln; for i : = 1 to n - 1 do if (a[i] mod 2 < > 0) and (a[i + 1] mod 2 = 0) then f : = 1; if f = 0 then begin for i : = 1 to n do if a[i] < 0 then write(a[i]: 4); end else for i : = 1 to n do if a[i] > 0 then write(a[i]: 4); end.

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