profile
Опубликовано 4 года назад по предмету Информатика от grinevad2000

Составить программу, подсчитывающую сумму вводимых с клавиатуры чисел ,если количество чисел заранее неизвестно, но известно, что последнее число равно 0
Помогите !

  1. Ответ
    Ответ дан ИнформатикБУ
    var
    s, x: integer;
    begin
    s:=0;
    repeat
    readln(x);
    inc(s, x);
    until x = 0;
    writeln(s);
    end.