Program cikli;unit math;var i,n,s,p:integer; a:array[1..20]of integer;begin writeln('Исходный массив: '); for i:=1 to 20 do begin a[i]:=RandomRange(1,20); writeln(' Элемент ',i,' = ',a[i]); end; writeln('Сумму и произведения скольки первых чисел вы хотите посчитать? '); readln(n); s:=0;p:=1;//цикл с параметром For i:=1 to n do begin s:=s+a[i]; p:=p*a[i]; end;writeln('Цикл с параметром');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с предусловиемi:=1;p:=1;s:=0;while i<>n do begin s:=s+a[i]; p:=p*a[i]; i:=i+1;end;writeln('Цикл с предусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p); //цикл с постусловиемi:=0;s:=0;p:=1;repeat i:=i+1; s:=s+a[i]; p:=p*a[i];until i=n;writeln('Цикл с постусловием');writeln('Сумма первых ',n,' чисел = ',s);writeln('Произведения первых ',n,'чисел = ',p);End.
program cube; var a,s,v:real; begin; write('Введите длину ребра куба: '); read(a); v:=power(a,3); s:=6*sqr(a); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Второе задание:
program par; var a,b,c,s,v:real; begin; write('Введите стороны a,b,c: '); read(a,b,c); v:=a*b*c; s:=2*(a*b+b*c+a*c); write('Площадь равна ',s,', а объём равен ',v,'.'); end.
Третье и четвёртое задания:
program mult; var r,a,b,c:real; begin; write('Введите три числа: '); read(a,b,c); r:=a*b*c; write('Произведение чисел равно ',r); end.
