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

Question

Информатика

Талина

18 января, 01:11

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

+4

Ответы (1)

Знаете ответ на вопрос?

Атя · Answer 1

Var i, d:integer;

uses crt;

Begin

for i:=1 to 20 do begin

d:=sqr (i) ;

end;

readln;

end.

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