Написать программу в паскале.

на вход подается х, на выход y = 5x если x>0 и y = хх иначе

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

Question

Сильвана

4 января, 09:23

+1

Ответы (1)

Знаете ответ?

Савелий · 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.

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