Регистрация
leha2018
30.05.2021 07:06
Биология
Есть ответ 👍

10 плазунів, ссавців, риб, птахів які занесені до Червоної книги України

299
438
Посмотреть ответы 2

Ответы на вопрос:

натали200652
натали200652
4,4(48 оценок)

10 плазунів: Жовтопуз, Гекон кримський, полоз лісовий, Мідянка, гадюка степова східна полоз леопардовий

Объяснение:

polina1336
polina1336
4,6(79 оценок)

var

n, i, k, a: integer;

s: real;

begin

repeat

write('Количество чисел: ');

readln(n)

until n > 0;

writeln('Введите числа:');

for i := 1 to n do

begin

write('Число №', i, ': ');

readln(a);

if a mod 3 = 0

then begin

s := s + a;

inc(k)

end

end;

if k > 0

then writeln('Среднее арифметическое чисел, кратных трём, равно ', s / k :0:5)

else writeln('Нет чисел, кратных трём')

end.

Популярно: Биология