Презентация, доклад по информатике Реализация циклов на языке Паскаль

n, k:byte;
begin
n:=5;
writeln('цикл 1');
for k:=1 to n do write (k);
writeln; writeln('цикл 2');
for k:=1 downto n do write (k);
writeln; writeln('цикл 3');
for k:=n to 1 do write (k);
writeln; writeln('цикл 4');
for k:=n downto 1 do write (k);
end.

n, k:byte;
begin
k:=2; n:=1;
while k begin
k:=k+2;
n:=n+3;
end;
write (k, n);
end.

i, p:integer;
begin
n:=5; p:=1; i:=1;
Repeat
p:=p*i ; i:=i+1;
Until i>n;
writeln(p);
end.

n, k:byte;
begin
n:=5;
for k:=1 to n do
begin
n:=n+1;
writeln (‘k=k’, k, ’ n=’,n);
end;
end.

n, k:integer;
begin
k:=1; n:=2;
while k begin
k:=k+2;
n:=n+3;
end;
write (k, n);
end.

год: ’);
readln(g);
until (g>=1990) and(g<=2030);

k, s:byte;
begin
s:=0;
for k:=1 to 5 do
begin
s:=s+k;
write (s);
end;
end.
 

n, k:byte;
begin
k:=1; n:=5;
while k begin
k:=k+2;
n:=n+3;
end;
write (k, n);
end.

n, k, w:byte; s:string;
begin
k:=1; n:=5; s:=’информатика’; w:=200;
repeat
gotoxy(35,12); write(s); sleep(w);
clrscr;
sleep(w);
k:=k+1;
until k>n;
end.

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

s:=5; x:=2; for c:=a to b do s:=s+x;
p:=0; repeat readln(x); p:=p*x; until x=0;
f:=1; k:=1; while k<=n do begin f:=f*k; k:=k+1; end;

чисел 1, 4, 9, 16, 25, 36, 42, 64, 81 напечатать те, которые не превышают n (4 балла).
Тремя операторами цикла описать вычисление N! (N! = 1*2*3* … *N) (5 баллов).