Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program p01;
uses crt;
var a,b: byte;
begin
clrscr;
write('Введите любое натуральное число - ');
readln(a);
b:=a mod 2;
if b>1
then writeln('Введённое число - четное')
else writeln('Введённое число - нечетное');
end.
uses crt;
var a,b: byte;
begin
clrscr;
write('Введите любое натуральное число - ');
readln(a);
b:=a mod 2;
if b>1
then writeln('Введённое число - четное')
else writeln('Введённое число - нечетное');
end.