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

Question

Информатика

Вавуля

20 августа, 04:32

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

+5

Ответы (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.