Вводить числа в переменную х. пока не будет введён - вопрос №0178102 от nikk72827 17.02.2023 02:14

Question

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

nikk72827 · 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.