Самостоятельная работа по теме «Программирование циклических алгоритмов»
Вариант 1
Определите, что будет напечатано в результате следующего алгоритма.
Var s,k:integer;
begin
s:=0;
For k:=1 to 12 do s:=s+5;
writeln(s);
end.
Определите, что будет напечатано в результате следующего алгоритма.
var k, s: integer;
begin
s:=0;
k:=3;
while s < 66 do begin
k:=k+3;
s:=s+k;
end;
write(k);
end.
Определите, что будет напечатано в результате следующего алгоритма.
var k, s: integer;
begin
s:=128;
k:=5;
Repeat
s:=s-k;
k:=k-1;
Until k < 0;
write(s);
end.

Катер007    2   30.04.2020 07:51    10