Question

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

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

Answer 1

uses crt;
var x,y:integer;
begin
write('введите х'); read(x);
if x>0 then y:=5*x else y:=x*x;
write('y=', y);
readkey;
end.

Answer 2

readkey?

Answer 3

А не readln?

Answer 4

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

Answer 5

Нужно писать readln?

Answer 6

можно писать readln (курсор в этом случае переходит на следующую строку), но можно read (курсор остается на строке, где напечатано будет 'введите x')

Answer 7

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var x:=ReadInteger('x=');
  Writeln('y=',x>0?5*x:x*x)
end.

Тестовое решение
x= 4
y=20

x= -4
y=16