Срочно!!! Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти:
а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию while . Дам 15 баллов
а) сумму всех чисел последовательности
б) количество всех чисел последовательности
Решить задачу используя циклическую конструкцию while . Дам 15 баллов
More Questions From This User See All
Answers & Comments
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.