Дано число, дать характеристику числа:а) положительное или отрицательноеб)четное или нечетное
Дано число, дать характеристику числа:
а) положительное или отрицательное
б)четное или нечетное
Гость
Ответ(ы) на вопрос:
ГостьЕсли Pascal, то вот:
Program z1;
var a:integer;
begin
Write('Введите число: '); read(a);
if (a>0) then Writeln('Данное число положительное')
else Writeln('Данное число отрицательное');
if (a mod 2=0) then Writeln('Данное число чётное')
else Writeln('Данное число нечётное');
end.
Не нашли ответ?
Похожие вопросы