Регистрация
fukk123Q
18.05.2023 20:12
Информатика
Есть ответ 👍

10111 из 2 -ной в 10-ную. как решать?

108
119
Посмотреть ответы 1

Ответы на вопрос:

soymapoIina
soymapoIina
4,6(28 оценок)

var

  a, b, c: integer;

 

begin

  writeln('введите числа a, b, c');

  readln(a, b, c);

  if a mod 2 = 0 then writeln('a - четное число')

  else writeln('a - нечетное число');

  if b mod 2 = 0 then writeln('b - четное число')

  else writeln('b - нечетное число');

  if c mod 2 = 0 then writeln('c - четное число')

  else writeln('c - нечетное число');

  readln; //если не в turbo pascal, то можно убрать

end.

Популярно: Информатика