Составить программу вычисления кубов чисел от 1 до 10

Question

Составить программу вычисления кубов чисел от 1 до 10

Экономика

Гость

Ответ(ы) на вопрос:

Гость

program c1; var a,k:integer; begin writeln( ' Введите число в диапазоне от 1 до 10: ') read(a); if ((a<=10) and (a>=1)) then k:=a*a*a else write (' Введённое число не входит в диапазон чисел'); end.

Accepted Answer

var a:integer; begin for a:=1 to 10 do writeln(a,'^3=',sqr(a)*a); end.