Дана непустая последовательность целых чисел , оканчивающимся нулем. Найти: а) сумму всех чисел последовательностиб) количество всех чисел последовательностиРешить задачу используя циклическую конструкцию while .
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
1. Напишите результаты следующих логических выражений:1) (3 > 5) аnd (2 > 4)
Автор: Yevgenevich775
Как называется страница презентации веб-страницы? - ip-адрес - домашняя страница - host
Автор: Misyura_Viktoriya1683
Для чего используют функцию автопереноса?
Автор: pronikov90
Выбери верный ответ. 25.89.180.219 — 1)цифровая адресация 2)доменная система имён
Автор: Илья_Ветклиники1655
Составить алгоритм для решения : вычислить у=в(в кубе)+(корень из из а)
Автор: Борисович409
Файл який використовується зазвичай для розповсюджень відео в інтернеті .
Автор: Татьяна Гришаевич
Word мәтіндік процессорды нұсқамен жұмыс жасау үшін не қолданылады ?
Автор: ivan-levermor
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.