Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=0;
while s < 1024 do begin
s:=s+10;
k:=k+1;
end;
write(k);
begin
s:=0;
k:=0;
while s < 1024 do begin
s:=s+10;
k:=k+1;
end;
write(k);
end.
Решение
В результате работы этого фрагмента программы будет напечатано число 103.
В программе сначала определяются две переменные k и s, которые инициализируются значением 0. Затем выполняется цикл "while", который продолжается пока значение переменной s меньше 1024. Внутри цикла значение переменной s увеличивается на 10, а значение переменной k увеличивается на 1. Когда значение s становится равным 1024, цикл прекращается. Последним действием в программе является вызов команды "write", которая печатает значение переменной k, равное 103.
В программе сначала определяются две переменные k и s, которые инициализируются значением 0. Затем выполняется цикл "while", который продолжается пока значение переменной s меньше 1024. Внутри цикла значение переменной s увеличивается на 10, а значение переменной k увеличивается на 1. Когда значение s становится равным 1024, цикл прекращается. Последним действием в программе является вызов команды "write", которая печатает значение переменной k, равное 103.
