Четное и нечетное число

Посмотреть архив целиком
program chetnoe_chisl;

{$APPTYPE CONSOLE}

uses
SysUtils;
var x:integer;
begin
writeln('Vvedite chislo');
readln(x);
if x mod 2=0 then writeln('Vvedennoe chislo - chetnoe')
else writeln ('Vvedennoe chislo - nechetnoe');
readln;
end.





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.