Напишите ПОЖАЛУЙСТА программу нахождения нечетного числа из 2-х (с числа т.е. полностью)

0 голосов
22 просмотров

Напишите ПОЖАЛУЙСТА программу нахождения нечетного числа из 2-х (с числа т.е. полностью)


Информатика (21 баллов) | 22 просмотров
Дан 1 ответ
0 голосов

Var a,b: real; s: byte; Begin Writeln ('введите два числа'); Readln (a,b); S:=0; If (a mod 2)=1 then writeln (a,' - нечетное число') else s:=s+1; If (b mod 2)=1 then writeln (b,' - нечетное число) else s:=s+1; If s=2 then writeln ('оба числа четные') End.

(3.9k баллов)