Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  qwe123
Language: PASCAL
Code:
program HelloWorld;
var
  a,b,c   : real;
  i : int;
  aa,bb,cc: real;
 
begin
  writeln('Vvedite a');Readln(a);
writeln('Vvedite b');Readln(b);
writeln('Vvedite c');Readln(c);
  if ( a < b ) and ( b < c ) then
   for i:= 1 to 5 do begin   
 aa:=a*a*a;
  a:=aa;
 bb:=b*b*b;
  b:=bb;
 cc:=c*c*c;
  c:=cc;
WriteLn(aa:5:0,' ',bb:5:0,' ',cc:5:0); 

end
else
writeln('ne sobludeno uslovie a<b<c');
ReadLn;
end.     
Comments: