ЦИКЛ С ПРЕДУСЛОВИЕМ Паскаль помогите
Ввести натур.число, вывести квадраты и кубы всех чисел от 1 до этого числа.
Пример:
4
1: 1 1
2: 4 8
3: 9 27
4: 16 64
Ввести натур.число, вывести квадраты и кубы всех чисел от 1 до этого числа.
Пример:
4
1: 1 1
2: 4 8
3: 9 27
4: 16 64
More Questions From This User See All
Answers & Comments
var N,i:integer;
BEGIN
readln(N);
i:=1;
while i<=N do begin
writeln(i,': ',sqr(i),' ',power(i,3));
i:=i+1;
end;
end.