составить программу для вывода на экран значений кубов натуральных чисел от 1 до 20

Question

Информатика

Анатолька

14 декабря, 08:26

составить программу для вывода на экран значений кубов натуральных чисел от 1 до 20

+2

Ответы (1)

Знаете ответ?

Маланья · Answer 1

Var i, d:integer;

uses crt;

Begin

for i:=1 to 20 do begin

d:=sqr (i) ;

end;

readln;

end.

Не проверял, накидал на быструю руку, но должно работать.