даю 100 баллов (отмечу лучшим)
ввести натуральное число вывести квадраты и кубы всех чисел от 1 до этого числа
на паскале пожалуйста
пример:
1: 1 1
2: 4 8
3: 9 27
ввести натуральное число вывести квадраты и кубы всех чисел от 1 до этого числа
на паскале пожалуйста
пример:
1: 1 1
2: 4 8
3: 9 27
Answers & Comments
program N_1;
uses crt;
var a,a2,a3:integer;
begin
writeln ('Введите натуральное число');
readln (a);
a2:= sqr(a);
a3:=a*a*a;
writeln (a, ': ', a2, ' ', a3);
end.