Показать сообщение отдельно
  #6  
Старый 30.04.2009, 20:34
Agentone Agentone вне форума
Прохожий
 
Регистрация: 30.04.2009
Сообщения: 4
Репутация: 10
По умолчанию

это наверное вообще в паскале делать надо
Цитата:
Var

a,b,c: real;

begin

write ('vvedite a');
read (a);
b:=a*a;
c:=b*a;
writeln (a,b,c);
end.
Ответить с цитированием