Меню сайта

Задача №11

Дано число. Определить, является ли данное число четным или нечетным.


Program If_11-

var a:integer-

Begin

writeln (‘Введите число’)-

readln (b)-

if a mod 2 =0 then writeln (‘Число — четное’) else writeln (‘Число нечетное’)-

Readln-

end.

Категория: Разветвляющиеся программы | Дата: 10.01.13

Меню раздела
Блок