Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  пр
Language: PASCAL
Code:
          program kub;
var a,b,i:integer;
begin
readln (a,b);
  for i:= a to b do
  begin
   writeln('Для числа',i,'квадрат=',i*i,'куб=',i*i*i);  
    end;  
    readln;
end.
          
Comments: