• Даны три целых числа. Найти количество положительных чисел в исходном наборе.

Ответы 3

  • Даны два числа. Вывести порядковый номер меньшего из них.
    • Автор:

      asher46
    • 5 лет назад
    • 0
  • Program one;var a,b,k: real;beginwriteln ('Введите числа, нажимая после каждого enter');readln (a);readln (b);If a>b then k:=2 else k:=1;writeln (k)end.
    • Автор:

      tamia
    • 5 лет назад
    • 0
  • Program one;var a,b,c,k: integer;beginwriteln ('Введите числа, нажимая после каждого enter');readln (a);readln (b);readln (c);k:=0;If a>0 then k:=k+1 else k:=k+0;If b>0 then k:=k+1 else k:=k+0;If c>0 then k:=k+1 else k:=k+0;writeln ('Количество положительных чисел ', k)end.
    • Автор:

      augustus
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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