Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательностиб) количество всех чисел последовательностиРешить задачу используя циклическую конструкцию while .
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
3*7 div 2 mod 7/3 - trunc(sin(1))
Автор: Shcherbinin KOLIChEVA
Даны осадки за 21 день нужно составить массив из средних значений за неделю
Автор: Dmitrievna-Dmitrii980
Для какого из указанных значений числа x истинно выражение (x> 2) и не (x> 3)? 1)1 2)2 3)3
Автор: Бочкарева Горохова1652
Паскаль abc.net отрицательные элементы массива заменить нулями, - остальные отсортировать по возрастанию
Автор: Aleksandrovich_Mitoyan1138
найти ошибки в программе на питоне
Автор: gabramova
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.