Даны два числа. посчитать сколько среди них четных.

Составить программу паскаль

Question

Информатика

Магея

9 августа, 04:25

Даны два числа. посчитать сколько среди них четных.

Составить программу паскаль

+4

Ответы (1)

Знаешь ответ?

Финолла · Answer 1

program number1;

var a, b, k: integer;

Begin

writeln ('Введите 1-ое число');

readln (a);

writeln ('Введите 2-ое число');

readln (b);

if a mod 2=0 then k:=k+1;

if b mod 2=0 then k:=k+1;

writeln ('Чётных чисел: ', k);

End.

Даны два числа. посчитать сколько среди них четных.Составить программу паскаль

Даны два числа. посчитать сколько среди них четных.

Составить программу паскаль