Написать программу четности и нечётности числа. на языке паскаль

moxowa81 moxowa81    3   09.07.2019 19:50    0

Ответы
Упс200 Упс200  02.10.2020 23:41
Var a:integer;
begin;
readln(a);
if odd(a)=true then writeln('Нечётное') else writeln('Чётное');
end.
ПОКАЗАТЬ ОТВЕТЫ
124taafo 124taafo  02.10.2020 23:41
Var a:integer;
begin
writeln('введите число');readln(a);
if (a mod 2=0) then writeln('четно') else writeln('нечетно');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика