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

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

Question

Информатика

Мик

8 сентября, 19:53

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

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

+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.

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

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

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