Вопрос школьника по предмету Информатика
Найти сумму чисел введенных с клавиатуры количество чисел задать через оператор read. Паскаль, срочноо
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
Какое описание массива содержит ошибку?
Const
n=10;
m=12;
Type
Figura=(elephant, rook, horse, queen, king, pawn);
CharMas1=array[A..Z] of integer;
MasFigura=array[Figura] of Figura;
Shach=array[‘1’..’8′, ‘A’..’H’] of Figura;
SH=array[1..8, #65..#72] of Figura;
Н Е Ж И Е Ь Н З Т О Д Л Ь Я Т
Даю 10 баллов