«3»: Ввести натуральное число вывести квадраты и кубы всех чисел от 1 до этого числа.
Пример:
Введите натуральное число:
3
1: 1 1
2: 4 8
3: 9 27
«4»: Ввести два целых числа a и b (a ≤ b) и вывести квадраты все чисел от a до b.
Пример:
Введите два числа:
4 5
4*4=16
5*5=25
На языке Паскаль
1.
program z1;
var a,i: integer;
begin
writeln ('Введите натуральное число:');
readln (a);
for i:=1 to a do writeln(i,': ',i*i,' ',sqr(i)*i)
end.
2.
program z2;
var a,b,i: integer;
begin
writeln ('Введите два числа:');
read (a,b);
for i:=a to b do writeln(i,'*',i,'=',sqr(i))
end.