Найти сумму чисел введенных с клавиатуры количество чисел задать через оператор read. Паскаль, срочноо
Ответы
Ответ дал:
0
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.
begin
write('Введите количество чисел: ');readln(n);
for i:=1 to n do begin
write('[Сумма: ',s,'] Введите ',i,'-е число: ');
readln(m);
s:=s+m;
end;
write('Сумма всех введённых чисел равна: ',s);
end.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
9 лет назад