Var s, k:integer; begin s:= 1; for k:= 1 to 7 do s:= s + k; writeln (s); end.
Var s, k:integer; begin s:= 1; for k:= 1 to 7 do s:= s + k; writeln (s); end.
Гость
Ответ(ы) на вопрос:
ГостьПрограмма суммирует числа от 1 до 7, и после этого выводит получившееся значение на экран. Возможно там ошибка, должно быть s:=0. Если s:= 1; то программа суммирует числа от 1 до 7 +1
Не нашли ответ?
Похожие вопросы