Регистрация
tverikin1997
29.09.2022 03:43
Информатика
Есть ответ 👍

С! надо ввести ее в pascal дан ряд чисел. количество задается пользователем. найти кол-во четных чисел оканчивающих на 0 или 2 9 класс

186
488
Посмотреть ответы 2

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

eminimanov198
eminimanov198
4,6(6 оценок)

var n,i,a,k: integer;

begin

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

readln(n);

writeln;

for i: = 1 to n do

begin

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

readln(a);

if ((a mod 2 = 0) and (a mod 10 = 0)) or ((a mod 2 = 0) and (a mod 10 = 2)) then k: =k+1

end;

writeln;

writeln('кол-во четных чисел оканчивающих на 0 или 2: ',k);

end.

madamnowiczkai
madamnowiczkai
4,8(27 оценок)
I=k*i i=8*24=192 бита=24 байта ответ: 24 байта

Популярно: Информатика