ONLINE COMPILERS
LIBRARY
MANUAL PAGES & DOCS
CONTACT
Latest Users' Questions
User Submitted Source Code!
Description:
пр
Language: PASCAL
Code:
пр
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.
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: