Question

напишите на паскаль программу расчет сумы введённых с клавиатуры N произвольных чисел с применением цикла с условием окончания работы
Заранее спасибо

Answer 1

Ответ:
Пришлось немного вспомнить то как в паскале все делается. Проверил онлайн компилятором и там все сработало. Как выход из цикла используется 0;

program Pascal;

var

UserInp : integer;

Summa : integer;

begin

   UserInp := 1;

   Summa := 0;

   writeln ('Введите элементы. Для выхода используйте 0');

   WHILE  UserInp <> 0 DO

       begin

               readln (UserInp);

               Summa := Summa + UserInp;

       end;

 writeln ('Сумма элементов равна - ', Summa);

end.

Объяснение: