Напишите программу на паскале А.выясните какие числа ввел пользователь: положительное или отрицательное? Б.выясните какие числа ввел пользователь: четное или нечетное ?

Напишите программу на паскале А.выясните какие числа ввел пользователь: положительное или отрицательное? Б.выясните какие числа ввел пользователь: четное или нечетное ?
Гость
Ответ(ы) на вопрос:
Гость
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 Пример вывода: Положительное Нечётное
Не нашли ответ?
Ответить на вопрос
Похожие вопросы