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

Question

Информатика

Целестина

20 ноября, 11:01

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

+4

Ответы (1)

Знаете ответ на вопрос?

Моля · Answer 1

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.