Решите задачу в паскале

1) Дано 10 натуральных чисел, посчитайте сколько среди их чётных

2) Дано 2 числа, определить сколько в каждом из них цифр 5.

Question

Информатика

Летя

3 февраля, 10:19

Решите задачу в паскале

1) Дано 10 натуральных чисел, посчитайте сколько среди их чётных

2) Дано 2 числа, определить сколько в каждом из них цифр 5.

+4

Ответы (1)

Знаете ответ на вопрос?

Даруня · Answer 1

Program azazaza;

var a, n, i:integer;

begin

for i:=1 to 10 do begin

read (a) ;

if a mod 2 = 0 then

n:=n+1;

end;

writeln ('чётных=', n) ;

end.

Это только 1-е задание

Решите задачу в паскале1) Дано 10 натуральных чисел, посчитайте сколько среди их чётных2) Дано 2 числа, определить сколько в каждом из них цифр 5.

Решите задачу в паскале

1) Дано 10 натуральных чисел, посчитайте сколько среди их чётных

2) Дано 2 числа, определить сколько в каждом из них цифр 5.