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

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

Question

Информатика

Анталия

24 июля, 07:52

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

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

+5

Ответы (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.

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

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

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