Определить является ли данное число(1-100),заданное с клавиатуры четным или нечетным

Категория: Delphi/Pascal

2012-01-02 14:56:54

code: #delphi

var a: integer;
begin
 readln(a);
 if a mod 2 = 0 then writeln('Четное')
 else writeln('Нечетное');
end.

автор: Hollander

Поделиться:

Sample Code