Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию while .
svetlanaastahov
2
11.12.2020 08:09
67
Другие вопросы по теме Информатика
leedercools
10.11.2020 12:50
WANNNO
30.08.2019 13:50
SofiLand854
02.10.2019 08:14
black95
02.10.2019 08:14
diana5974767
25.07.2019 16:50
vitokle
25.07.2019 16:50
StacyZviozdohkina
25.07.2019 16:50
astanina042
25.07.2019 16:50
Популярные вопросы
- 4. В процессе энергетического обмена гликолизу подверглось 7 моль глюкозы....
2 - Напишите общие сведения о тканях составить коллекцию х/б тканей...
3 - Заполни пропуски в предложениях. употребув глаголы в Past Simple.Once upon...
3 - О? 9Сколько надо написать цифр, чтобы записать вседвузначные числа?...
3 - Как можно объяснить наличие нижнего предела температуры, т.е. абсолютного...
1 - Продолжите каждый из начатых примеров дважды :1)что бы получилось предложение...
3 - Төмендуегі сұрақтарға мәтіндегі деректерді қолдана отырып, жауап беріңіз....
1 - Рассмотри иллюстрации. Укажирисунки с прямым воздействием...
3 - Сколько концов имеют 4 палки длинной 1 метру и 1 палка длиной 50 см ....
2 - Задание 5 ( ) Выбери животных, которые находятся на грани исчезновения.т1231.2.3....
1
var a, s,k: integer;
begin
s := 0;
k:=0;
readln (a);
while a <> 0 do
begin
k:=k+1;
s := s + a;
readln(a);
end;
writeln('Сумма всех чисел последовательности ', s ,' Количество всей числ последовательности ' ,k);
end.