Pascal

составить программу с полным ветвлением

y=xx если x<2

y=xx*x если x>2

y=2+x если x=2

Question

Информатика

Валюся

22 мая, 20:03

Pascal

составить программу с полным ветвлением

y=xx если x<2

y=xx*x если x>2

y=2+x если x=2

+1

Ответы (1)

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

Старемилиан · Answer 1

Program dfgd;

var

x: integer;

y: real;

begin

write ('Введите х: ') ;

readln (x) ;

if x < 2

then y : = sqr (x)

else

if x > 2

then y : = power (x, 3)

else y : = 2 + x;

writeln ('y=', y) ;

end.

Pascalсоставить программу с полным ветвлениемy=x*x если x<2y=x*x*x если x>2y=2+x если x=2

Pascal

составить программу с полным ветвлением

y=xx если x<2

y=xx*x если x>2

y=2+x если x=2