Определение четности числа на Pascal
Определение четности числа...
var x: integer;
begin
write('Введите x: ');
readln(x);
if x mod 2 = 0 then
writeln('Это четное число')
else writeln('Это нечетное число');
end.
10.02.2015, 08:57 -
Категория: Статьи » Программирование » Pascal