Показать сообщение отдельно

  #2525  
Старый 19.03.2010, 22:15
fenixelite
Участник форума
Регистрация: 07.02.2010
Сообщений: 189
Провел на форуме:
870084

Репутация: 79
Отправить сообщение для fenixelite с помощью ICQ
По умолчанию

Эмм а что тут непонятного?

Код:
var
x,y:real;
begin 
read(x);
if (x<7)and(x>6) then
 y:=5*x+6;
 if (x>7)and(x<10) then
 y:=2*x
 else 
 y:=9;
writeln(y);
end.
 
Ответить с цитированием