Размещено 5 лет назад по предмету
Информатика
от lk900
1) Сколько раз выполниться цикл:
a)
For i:=7 downto -3 do
k:=k+1;
b)
k:=0;
while k < 15 do begin
k:=k+4;
end;
c)
k:=10;
repeat
k:=k-1;
until k>2;
2) Определите, что будет напечатано в результате работы следующего фрагмента программы:
a)
s:=0;
for k:=1 to 27 do begin
if k mod 7 =0 then s:=s+1;
end;
write(s);
b)
s:=0;
k:=1;
while k < 18 do begin
s:=s+k;
k:=k+4;
end;
write(s);
c)
k:=0;
p:=1;
repeat
p:=p*k;
k:=k+3;
until k>10;
write(p);