Программирование циклических структур: 1. известны оценки по информатике каждого ученика в классе.определите - id392129720201001 от Matveykaka 01.10.2020 23:26

Question

Информатика: Программирование циклических структур: 1. известны оценки по информатике каждого ученика в классе.определите средний .

Matveykaka · Accepted Answer

var

n, k, s, sa: integer;

begin

k := 0;

s := 0;

sa := 0;

writeln('Введите последовательность, окончание ввода - число 0');

repeat

read(n);

if (n mod 4 = 0) and (n mod 10 = 2) then s := s + n;

if (n <> 0) and (n < 100) then inc(k);

sa := sa + n

until n = 0;

readln;

writeln('Сумма чисел, кратных 4 и заканчивающихся на 2, равна ', s);

writeln('Количество чисел, не больших 100, равно ', k);

writeln('Сумма последовательности равна ', sa);

readln

end.

Объяснение:

Программирование циклических структур: 1. известны оценки по информатике каждого ученика в классе.определите средний .