Дана непустая последовательность чисел оканчивающаяся нулем. найти: а) сумму всех чисел последовательности, б) кол-во всех чисел последовательности.решить через pascal abc через repeat,for или while
pOMOGITPLZ1
3
18.07.2019 11:00
0
Другие вопросы по теме Информатика
пончик332
02.08.2019 12:00
287888
02.08.2019 12:00
Пенелопа2189
19.07.2019 08:30
Ука12345
19.07.2019 08:30
Настя200101
19.07.2019 08:20
dschunchewa2013
19.07.2019 08:20
настя7208
19.07.2019 08:20
Aleksandrya
19.07.2019 08:20
123киівміша
19.07.2019 08:20
Популярные вопросы
- 3. №1 какую часть часа сотавляют 45 ин,12 мин,15 мин,40 мин,35 мин. №2 какую...
1 - Всостав каждого мономера днк входит углевод азотистого основания аденина через...
1 - Триугольник abc,его p=12см,делится отрезком bm(m лежит на стороне ac)на 2 триугольника,периметры,которых...
3 - Найти значение производной функции f(х)=3х(в кубе)+4х-1 в точке х=3...
2 - Сколько двухзначных чисел можно составить из цифр 4,6,9, если в записи числа...
3 - Морфологический разбор слова (слушать)музыку...
2 - Как можно узнать объем твердого тела?...
3 - Напишите маленькую пейзажную зарисовку на тему краски осени...
2 - Вкниге 234 страницы. вася в понедельник прочитал 48 страниц, а за каждой из...
2 - Можете предумать ещё 4-6 предложений после эти как бы продлить текст. города...
2
a, s, n: integer;
begin
n:=0; s:=0;
repeat
readln(a);
inc(n);
inc(s, a);
until a = 0;
writeln('Сумма: ', s);
writeln('Количество: ', n);
end.