• Написать программу в паскале.
    на вход подается х, на выход y = 5*x если x>0 и y = х*х иначе

    X и Y целые числа.

Ответы 7

  • readkey?
  • А не readln?
  • первую строку и предпоследнюю для версии паскаль ABC можно убрать, они выполняют задержку экрана..
    • Автор:

      wifey
    • 6 лет назад
    • 0
  • Нужно писать readln?
    • Автор:

      bob40
    • 6 лет назад
    • 0
  • можно писать readln (курсор в этом случае переходит на следующую строку), но можно read (курсор остается на строке, где напечатано будет 'введите x')
  • uses crt;var x,y:integer;beginwrite('введите х'); read(x);if x>0 then y:=5*x else y:=x*x;write('y=', y);readkey;end.
    • Автор:

      esteban64
    • 6 лет назад
    • 0
  • // PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var x:=ReadInteger('x=');  Writeln('y=',x>0?5*x:x*x)end.Тестовое решениеx= 4y=20x= -4y=16
    • Автор:

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

Войти через Google

или

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

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

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