Function getSumFor(n:integer):integer;var sum, i:integer;begin sum := 0; for i:=1 to n do begin sum := sum + i; end; result := sum;end; function getSumWhile(n:integer):integer;var sum, i:integer;begin sum := 0; i := 1; while i <= n do begin sum := sum + i; i := i + 1; end; result := sum;end; function getSumRepeat(n:integer):integer;var sum, i:integer;begin i := 1; sum := 0; repeat sum := sum + i; i := i + 1; until i > n; result := sum;end; begin writeln(getSumFor(1)); writeln(getSumWhile(1)); writeln(getSumRepeat(1));end.
В этой проге 1,2,3 program p1; uses crt; var a:array [1..10] of integer; i,k,s,p,min,max,k2:integer; begin P:=1; s:=0; for i := 1 to 10 do begin a[i]:= random(31); write(a[i]:4); end; writeln; min:=a[1]; max:=a[1];
for i:=1 to 10 do begin
If min>a[i] then begin min:=a[i]; k:=i; end;
s:=a[i]+s; p:=a[i]*p;
If max<a[i] then max:=a[i]; K2:=i; end; writeln('МИнимальное число:',min,' номер :',k); writeln('Сумма :',s,' Произведение :',p); for i:=1 to 10 do begin If a[i] <> max then write(a[i]:3) else write(' 999'); end; writeln; writeln('Максимальное число :',max,' номер ',k2); end.
Вот 4; program p2; uses crt; var a:array [1..10] of integer; i,p:integer; begin P:=1; for i := 1 to 10 do begin a[i]:= random(60)-30; write(a[i]:4); end; writeln; p:=1; for i:=1 to 10 do begin If a[i] < 0 then p:=p*a[i]; ; end; writeln('Произведение :',p); end.
function getSumWhile(n:integer):integer;var sum, i:integer;begin sum := 0; i := 1; while i <= n do begin sum := sum + i; i := i + 1; end; result := sum;end;
function getSumRepeat(n:integer):integer;var sum, i:integer;begin i := 1; sum := 0; repeat sum := sum + i; i := i + 1; until i > n; result := sum;end;
begin writeln(getSumFor(1)); writeln(getSumWhile(1)); writeln(getSumRepeat(1));end.