Решите кто умный в информатике Определите, что будет напечатано в результате работы следующего фрагмента программы:
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.
171
314
Ответы на вопрос:
Популярно: Информатика
-
Irishka2k1716.04.2021 06:54
-
Ariya0303.07.2022 22:38
-
иаешшвеэщк02.06.2021 05:08
-
ангел15070527.01.2023 13:51
-
sashakoritnij31.07.2022 05:11
-
Maks00p113.02.2021 19:05
-
Bogqwerty03.02.2022 15:10
-
minyaaaaaaaaaaaaaaa02.02.2020 18:45
-
ksenia623417.03.2022 14:10
-
Marsel20030101.02.2023 02:30