Напишите линейный алгоритм вычисления y по формуле y=(x++4),при x=2

Question

Информатика: Напишите линейный алгоритм вычисления y по формуле y=(x++4),при x=2

alesyshapiro · 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.

Объяснение: