Паскаль! Даны четыре целых числа, сколько из них четные. Решение

Question

Информатика

Лия

11 февраля, 11:06

Паскаль! Даны четыре целых числа, сколько из них четные. Решение

+3

Ответы (1)

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

Валенсия · Answer 1

Var a, b, c, d, x:integer;

begin

x:=0;

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

readln (a) ;

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

readln (b) ;

wirteln ('Введите число 3') ;

readln (c) ;

wirteln ('Введите число 4') ;

readln (c) ;

if a div 2 = 0 then x:=x+1;

if b div 2 = 0 then x:=x+1;

if c div 2 = 0 then x:=x+1;

if d div 2 = 0 then x:=x+1;

writeln ('Четных чисел = ', x)

end.