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

var k, s: integer;
begin
s:=1;
k:=0;
while k < 13 do begin
s:=s+2*k;
k:=k+4;
end;
write(s+k);
end.

ответ:ПОНЯЛ ВОТ ЭТОТ ОТВЕТ И БУДЕТ

Ну в уме логике же.

s = 0;

k = 1;

в цикле будет пока s<66

на первом шаге

k = 1 + 3 = 4

s = 0 + k = 4

след шаг (2)

k = 4 + 3 = 7

s = 4 + 7 = 11

след шаг (3)

k = 7 + 3 = 10

s = 11 + 10 = 21

след шаг (4)

k = 10 + 3 = 13

s = 21 + 13 = 34

след шаг (5)

k = 13 + 3 = 16

s = 34 + 16 = 50

очевидно, что на след шаге s будет равно 69 (значение k = 19)

после него проверка условия в цикле while не сработает, он будет пропущен и выведет программа

число 19

Объяснение: