Решите кто умный в информатике Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 80 do begin
s:=s+2*k;
k:=k+4;
end;
write(s);
end.

2.var s, n: integer;
begin
s := 300;
n := 100;
while s - n >= 100 do
begin
s := s + 20;
n := n + 30
end;
writeln(s)
end.

3.var s, n: integer;
begin
s := 300;
n := 100;
while s div n >= 2 do begin
s := s + 5;
n := n + 5
end;
writeln(s)
end.

4.Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while k < 12 do begin
s:=s+2*k;
k:=k+3;
end;
write(s);
end.

margaretpodkur    2   08.05.2020 18:48    2