Что напечатает следующая программа? var n, S: integer;
begin
n := 1;
S := 0;
while n <= 256 do
begin
S := S + 20;
n := n * 4;
end;
write(s)
end.
var k, S: integer;
begin
k := 10;
S := 0;
while k < 150 do
begin
S := S + k;
k := k + 10;
end;
write (s);
end.
Какой будет результат выполнения программы? Постройте трассировочную
таблицу.
program Summa;
var k, x, S: integer;
begin
S := 0;
for k := 0 to 4 do
begin
x := k * 2 + 1;
S := S + x;
end;
writeln (S);
end.
