Дано 3 двузначных числа. Вывести на экран те числа, в которых

Дано 3 двузначных числа. Вывести на экран те числа, в которых сумма цифр является четным числом.

Задать свой вопрос
Карина
Pascal?
Борис
да)
1 ответ
Var a,b,c : integer;
begin
writeln ('Введите 1-ое число');
readln (a);
if a mod 2=0 then writeln ('Это число является чётным') else writeln ('Это число является НЕчётным');
writeln ('Введите второе число');
readln (b);
if b mod 2=0 then writeln ('Это число является чётным') else writeln ('Это число является НЕчётным');
writeln ('Введите  третье число');
readln (c);
if c mod 2=0 then writeln ('Это число является чётным') else writeln ('Это число является НЕчётным');
end.
Полинковский Николай
спасибо большое))
Кира Морсакова
проверила? всё работает?
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт