Найти сумму чисел введенных с клавиатуры количество чисел задать через оператор read. Паскаль, срочноо
Answers & Comments
CzarAlex
Var i,n,s,m:integer; begin write('Введите количество чисел: ');readln(n); for i:=1 to n do begin write('[Сумма: ',s,'] Введите ',i,'-е число: '); readln(m); s:=s+m; end; write('Сумма всех введённых чисел равна: ',s); end.
Answers & Comments
begin
write('Введите количество чисел: ');readln(n);
for i:=1 to n do begin
write('[Сумма: ',s,'] Введите ',i,'-е число: ');
readln(m);
s:=s+m;
end;
write('Сумма всех введённых чисел равна: ',s);
end.