Ответы и объяснения

  • Участник Знаний
2012-06-01T16:40:36+00:00

var a:integer;

begin

for a:=1 to 10 do

writeln(a,'^3=',sqr(a)*a);

end.

2012-06-01T22:14:05+00:00

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.