Технический форум

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

- - Паскаль (http://www.tehnari.ru/f41/t84852/)

маринаник

06.02.2013 01:25

Паскаль

Вложений: 1

помогите пожалуйста!!!

shrek=)

06.02.2013 07:05

Код:

var

x,y:real;

begin

write ('x=');readln(x);

if x>50 then y:=sqrt(50-x) else

if x<50 then y:=abs(x-50) else

if x=50 then y:=0;

writeln ('y=',y);

readln

end.

Часовой пояс GMT +4, время: 10:07.