Решить задачи по информатике(желательно написать с вычислениями) 1) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 100 do begin
s:=s+k;
k:=k+4;
end;
write(k);
end.
2) Запишите число, которое будет напечатано в результате выполнения следующей программы:
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 300 do begin
s := s + 30;
n := n * 5
end;
write(s)
end.
3) Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=5;
k:=0;
while k < 15 do begin
k:=k+2;
s:=s+k;
end;
write(s);
end.
4) Запишите число, которое будет выведено в результате работы программы:
var s, n: integer;
begin
s := 0;
n := 0;
while s*s <= 10*s do begin
s := s + 1;
n := n + 2
end;
writeln(n)
end.
5) Определите, при каком наименьшем введенном значении переменной s программа выведет число 15.
var s, n: integer;
begin
readln(s);
n := 5;
while s < 110 do begin
n := n + 1;
s := s + n;
end;
writeln(n)
end.
