Написать программу в паскале. на вход подается х, на выход y = 5*x если x больше 0 и y = х*х иначе X и Y целые числа.
Написать программу в паскале.
на вход подается х, на выход y = 5*x если x>0 и y = х*х иначе
X и Y целые числа.
Гость
Ответ(ы) на вопрос:
Гость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.
Гость// 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
Не нашли ответ?
Похожие вопросы