[ЮркаСал]

Данные числа с и d являются соответственно квадратом и кубом числа a. Кто сможет составьте программу? Спаибо!

[lmikle]

И в чем задача?
Что искатьь-то надо?

И соотв. теор. выкладки сюда.

[ЮркаСал]

Сообщение от lmikle

И в чем задача?
Что искатьь-то надо?

И соотв. теор. выкладки сюда.

Все что написано в задаче, я написал, я думаю, что с и d!!!!

[Страдалецъ]

Ага, и для любых чисел А добавьте к условию, глядишь теорема Ферма решится чисто случайно.

[lmikle]

Сообщение от ЮркаСал

Все что написано в задаче, я написал, я думаю, что с и d!!!!

тогда:

Код:

procedure TForm1.Button1Click(Sender : TObject);
var
  a, c, d : Integer;
begin
  a := StrToInt(Edit1.Text);
  c := a * a;
  d := c * a;
  Edit2.Text := IntToStr(c);
  Edit3.Text := IntToStr(d);
end;

Но я думаю, что это не то, что нужно.

[Agentone]

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

Var

a,b,c: real;

begin

write ('vvedite a');
read (a);
b:=a*a;
c:=b*a;
writeln (a,b,c);
end.

[lmikle]

Сообщение от Agentone

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

См. внимательно тему поста: Дельфи7