Решить по информатике с клавиатуры последовательно - вопрос №1606372 от anastasiaplotni 17.06.2022 17:11

Question

Информатика: Решить по информатике с клавиатуры последовательно вводят целые числа и высчитывается их сумма если с клавиатуры вводят 0, то больше числа не вводят. найти сумму всех введеных чисел. надо начать так x-число (меняется) s-сумма до цикла s: =0

anastasiaplotni · Answer

Program Summa;

Uses Crt;

var n,s:integer;

begin

clrscr;

write('Вводите числа конец ввода 0: ');

s:=0;

repeat

readln(n);

s:=s+n;

until (n=0);

writeln;

writeln('Сумма чисел: ',s);

readkey;

end.