⇢ 
Н@дюш@
Помогите пожалуйста определить что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=0;
k:=1;while s<66 do begink=k+3;s:=s+k;end;
write(k);
end.
СВ
Сергей Волченко
а проверить самостоятельно? Навскидку - 19, но зуб свой не отдам
(66-3)/3=21=7*3; 21-2=19, т. к. начало суммы при к=4
СН
Сима Некрашевич
При компиляции выдаст ошибку. После begin нет пробела, перед = двоеточия.
Если исправить, выдаст 19
Похожие вопросы