var s, k:integer;

begin s: = 1;

for k: = 1 to 7 do

s: = s + k;

writeln (s) ;

end.

Question

Информатика

Зоря

21 апреля, 12:24

var s, k:integer;

begin s: = 1;

for k: = 1 to 7 do

s: = s + k;

writeln (s) ;

end.

+3

Ответы (1)

Знаете ответ?

Максим · Answer 1

Программа суммирует числа от 1 до 7, и после этого выводит получившееся значение на экран. Возможно там ошибка, должно быть s:=0. Если s: = 1; то программа суммирует числа от 1 до 7 + 1

var s, k:integer;begin s: = 1;for k: = 1 to 7 dos: = s + k;writeln (s) ;end.

var s, k:integer;

begin s: = 1;

for k: = 1 to 7 do

s: = s + k;

writeln (s) ;

end.