Вводить числа в переменную х. пока не будет введён - вопрос №0178270 от bellatrissa21 04.03.2020 14:11

Question

Информатика: Вводить числа в переменную х. пока не будет введён 0.на печать ввыдать сумму введённых чисел и сами числа

bellatrissa21 · Answer

label nach;

uses crt;

var x,s:integer;

begin

s:=0;

repeat

nach:

write('vvedite x=');read(x);

if (x!=0) then begin writeln(x); s:=s+x; goto nach;end else s:=s+x;

until (x=0);

writeln('summa ravna=',s);

end.