Предмет: Информатика,
автор: grinevad2000
Составить программу, подсчитывающую сумму вводимых с клавиатуры чисел ,если количество чисел заранее неизвестно, но известно, что последнее число равно 0
Помогите !
Ответы
Автор ответа:
0
var
s, x: integer;
begin
s:=0;
repeat
readln(x);
inc(s, x);
until x = 0;
writeln(s);
end.
s, x: integer;
begin
s:=0;
repeat
readln(x);
inc(s, x);
until x = 0;
writeln(s);
end.
Интересные вопросы
Предмет: Литература,
автор: sajmardanovakata257
Предмет: Математика,
автор: Аноним
Предмет: Русский язык,
автор: ilaemelanov343
Предмет: История,
автор: алина20022
Предмет: Физика,
автор: 1q2w3e4r5t6yy