Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательностиб) количество всех чисел последовательностиРешить задачу используя циклическую конструкцию while .
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
решить задание по решить задание по Excel ">
Автор: abuzik
Как функционируется электронная почта и в чем ее отличие от web-почты?
Автор: titov-es3095
Выберите правильный ответ
Автор: mnkrasnova
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.