Question

Вычислите сумму 7 натуральных чисел, вводимых с клавиатуры .Наберите в среде Pascal ABC , заменив многоточия на необходимые команды. program v2; var s,n,i:integer; begin s:=........; for i:=..... to ..... do begin writeln('введите число'); ................(n); s:=s+........; end; writeln('сумма равна',.....); end.

Answer 1

//Форматировать код? Нет, автор задания не слышал
var s,n,i:integer; 
begin
s:=0;
for i:=1 to 7 do
begin
writeln('введите число');
readln(n);
s:=s+n; 
end;
writeln('сумма равна',s);
end.