Вводить числа в переменную х. пока не будет введён 0.на печать ввыдать сумму введённых чисел и сами числа
buraya1989
2
10.03.2019 11:10
2
Другие вопросы по теме Информатика
Helen4647
26.05.2019 20:54
Lalana11
26.05.2019 20:51
tasirevaliza79
26.05.2019 22:00
kazinka9
05.02.2021 11:22
rama13534
05.02.2021 11:21
crybaby1916
05.02.2021 11:18
Folknesss14
31.08.2019 07:50
kotovaalina31
18.09.2019 18:00
BRICKWIH
18.09.2019 18:00
дошикестдошик
05.08.2019 20:20
Популярные вопросы
- 1) какие 3 черты из перечисленных ниже характерны для народно-демократических...
2 - Слова бирка схему правильно раскрасить...
1 - Дан треугольник abc a=7 b=37 c=40 найти угол b...
1 - What do students do in the class when the teacher goes out?...
1 - Выполнив необходимые измерения найдите периметр четырёхугольников...
3 - Від поданих дієслів утворити дієприкметникові форми: сушити, крутити,...
1 - Прочитайте стихи а пушкина выпишите глаголы,выделите окончания...
1 - Преобразуйте выражение −19m(m3−4m+33)+m(19m3+4m−17) в многочлен...
1 - Поставить ударения: окном-окна,ветерок-ветер,веселится-весело-веселый,притаится-тайна,листочки-лист,бегут-бег.и...
1 - Напите черты характера героев сказ attalea prinsecc гаршин...
3
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.