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

Ответы 3

  • С каких пор 0 стал отрицательным числом?
    • Автор:

      emmasmith
    • 6 лет назад
    • 0
  • var x:integer; begin writeln('Введите число'); readln(x); if x>0 then write('Число положительное и ') else write('Число отрицательное и '); if x mod 2=0 then write('четное.') else writeln('нечетное'); end.
    • Автор:

      iglesias
    • 6 лет назад
    • 0
  • //Pascal ABC.NET v3.1 сборка 1219Var 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Пример вывода:ПоложительноеНечётное
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years