1. Информатика
  2. Дана последовательность целых

Дана последовательность целых чисел, заканчиваемые нулем. подсчитайте сумму положительных чисел последовательности. !

Ксения80200 Ксения80200    3   31.05.2019 08:30    0

Ответы
Anya183930303 Anya183930303  01.07.2020 20:55
Program beg;
var a,sum:integer;
begin
a:=-1;
while a<>0 do
begin
read(a);
if a>0 then sum:=sum+a;
end;
writeln(sum);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
eon1986 eon1986  16.07.2019 06:20
Используя подпрограмму (корень из n+ n) решить: (корень из 5 +5/2)+(корень из 3+3/2)+(корень из 7+7/2)...
BULATIKSPB BULATIKSPB  17.02.2021 17:56
Вспомни режимы датчика цвета. Запиши их в тетрадь. Режимы датчика цветаРежим Яркость отраженногосветаРежим Яркость внешнегоосвещенияРежим Цвет​...
AlicaMinenkova AlicaMinenkova  17.02.2021 17:56
Определи основание системы счисления числа 26610....
arina040304 arina040304  17.02.2021 17:56
Запиши число 14383 в развёрнутом виде, начиная со старшего разряда. ответ: ⋅10 + ⋅10 + ⋅10 + ⋅10 + ⋅10...
mivaniuk mivaniuk  17.02.2021 17:56
4-тапсырма. Python-да төмендегі фигураларды экранға шыгаа тын программа құрастыр тез кере берем тез арада керк кәп кәзір керек болп тұр өтінм​...
xezi1 xezi1  17.02.2021 17:57
1. Функцияның графигі дегеніміз не? ответ:Біз функцияны формула арқылы жазуды қарастырғанбыз, бірақ функцияның басқа да берілу тәсілдері бар: сөзбен сипаттау, кестелік, графикалық....
Meowmeowmi Meowmeowmi  17.02.2021 17:58
Сызықтық алгоритмдердің ерекшеліктері​...
Еккуш63шшк83оагш7гв Еккуш63шшк83оагш7гв  17.02.2021 18:00
2 Ойлануға берілген сұрақтар 1. inputo функциясындағы әдістердің қандай маңызы бар? 2. printо функциясында end=\n әдісі қандай мақсатта қолданылады? 3. Программалау кезінде inputo...
kazymbietova71 kazymbietova71  17.02.2021 18:01
Планирование и защита проектов...
vulf20 vulf20  17.02.2021 18:01
Нужно составить алгоритм, подсчёта четных среди двузначных чисел( в веди блок схемы)...

Популярные вопросы