20.2 напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 4, или сообщает, что таких чисел нет (выводит no). программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). количество чисел не превышает 100. введённые числа не превышают 300. программа должна вывести среднее арифметическое чисел, кратных 4, или вывести «no», если таких чисел нет. заранее .
liltvin
2
02.06.2019 02:20
6
Другие вопросы по теме Информатика
GolduckChannel
14.03.2019 21:56
Elenamas11
14.03.2019 21:57
mrvlad12
09.05.2020 17:49
dimadi1
14.08.2019 15:40
alievarena81
14.08.2019 15:40
Bomberidze
17.03.2019 10:40
настюха20998
15.12.2020 15:04
silamiaso1
10.07.2019 11:00
valeriia8
04.10.2019 13:30
Популярные вопросы
- Мәтінді оқыңыз. Синонимдік қатарларды орынды қолданып, көрікті жерге саяхат...
1 - Делайте конспект хобит туда и обратно...
2 - Ex.1 Use the correct words for the (numbers in brackets). Write the cardinal...
1 - Распределите отрывки событий из произведения В.Ф.Тендрякова «Хлеб для собаки»...
3 - Как сложится дальше жизнь Ольги Ивановны? Л. Н. Толстой, например, не верил,...
2 - Решение задач с составления систем уравнений. Урок 3 Лыжник добежал из пункта...
1 - Твір-метамарфоза Яка людина на вашу думку може змінити цивілізацію...
1 - Андрей, Борис и Денис ели конфеты, каждый ел со своей постоянной скоростью....
3 - Ким був орфей (легенди про Орфея?)...
3 - 1. Шоқанның саяхатын неше кезеңге бөлуге болады? 2. Жоңғарияда алғаш рет...
1
begin
repeat
if(y = 100) then break;
readln(x);
if(abs(x) > 300) then begin
writeln('Число по модулю не может быть > 300.');
continue
end
else
if(x mod 4 = 0) and (x <> 0) then begin
inc(count);
s := s + x;
end;if(x <> 0) then inc(y);
until(x = 0);
writeln('Среднее арифметическое: ', s / count);
end.