Дана последовательность натуральных чисел,окончанием последовательности число 0. составить программу , котрая вычисляет сумму и среднее арифмитическое чисел кратных 3
BDE555555дима
3
19.07.2019 10:10
3
Другие вопросы по теме Информатика
Grister555
01.04.2020 18:58
raniskarimov2
01.04.2020 19:00
brain09
01.04.2020 19:00
emin551
07.04.2021 15:13
anonimus8310
07.04.2021 15:13
JuliaPetrova56
07.04.2021 15:13
kilbas1ggttyi
07.04.2021 15:14
лиана249
07.04.2021 15:14
Популярные вопросы
- Обери речення, у якому є однорідні обставини: Будь-яку тварину чи...
3 - мне Маємо рівняння: 16x2+9x-9=0 Запиши старший коефіцієнт, другий...
2 - Визначте відстань між центрами двох кіл,які дотикаються зовні, якщо...
2 - Системы счисления 1. Укажите через запятую в порядке возрастания...
2 - + Участки цепи подключены последовательно. На 2-м участке идёт параллельное...
1 - Выпиши все имена существительные в той форме и в том порядке, в...
3 - Подумай, в какой жизненной ситуации уместно будет употребить выражение...
3 - Що було перешкодую одруженню Марусі та Василя Маруся...
3 - Скільки дорівнює коефіцієнт с квадратного рівняння-2х в квадраті...
3 - В какой части России должно был особенно рас дарственное наделение...
2
x, s, n: integer;
sr: real;
begin
repeat
readln(x);
if (x mod 3 = 0) and (x>0) then
begin
s:=s+x;
n:=n+1;
end;
until x=0;
sr:=s/n;
writeln(sr);
end.