var s, k:integer;

begin s: = 1;

for k: = 1 to 7 do

s: = s + k;

writeln (s) ;

end.

Question

Информатика

Катюся

3 августа, 04:05

var s, k:integer;

begin s: = 1;

for k: = 1 to 7 do

s: = s + k;

writeln (s) ;

end.

+5

Ответы (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.