Определите, что будет напечатано в результате работы следующего фрагмента программы:

var k, s: integer;
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.