Напишите программу на паскале А.выясните какие числа ввел пользователь: положительное или отрицательное? Б.выясните какие числа ввел пользователь: четное или нечетное ?
Напишите программу на паскале
А.выясните какие числа ввел пользователь: положительное или отрицательное?
Б.выясните какие числа ввел пользователь: четное или нечетное ?
Гость
Ответ(ы) на вопрос:
Гостьvar x:integer;
begin
writeln('Введите число');
readln(x);
if x>0 then write('Число положительное и ')
else write('Число отрицательное и ');
if x mod 2=0 then write('четное.')
else writeln('нечетное');
end.
Гость//Pascal ABC.NET v3.1 сборка 1219
Var
n:integer;
begin
readln(n);
if n>0 then writeln('Положительное');
if n<0 then writeln('Отрицательное');
if n=0 then writeln('0');
if n mod 2=0 then writeln('Чётное') else writeln('Нечётное');
end.
Пример ввода:
1
Пример вывода:
Положительное
Нечётное
Не нашли ответ?
Похожие вопросы