35
с инфой
надо вычислить в паскале квадрат и куб от 1 до 10 а потом вывести
условия
1,не использовать crt выводить только в окне вывода
2, не типо такого
var
a : array [1..2, 1..10] of integer;
i, j : integer;
begin
writeln ('число куб квадрат');
for j : = 1 to 10 do
begin
a[1,j] : = sqr(j);
a[2,j] : = sqr(j) * j
end;
for i : = 1 to 2 do
begin
for j : = 1 to 10 do write(a[i,j]: 5);
writeln
end;
readln
end.
3, число квадрат куб
1 1 1
2 4 6
и тд
4, типа такого не надо write (' число квадрат куб');
writeln ('1 1 1 ')
надо чтоб находило и выводило

Решим задачу в общем виде. Пусть изначально ребро куба составляет а единиц, тогда объем — V=a^3 кубических единиц. При увеличении длины ребра в к раз, где к — натуральное число, объем составит У2 = (к • а) кубических единиц.
V2/V1 = (к • а)^3: а^3 = к^3 • а^3: а^3 = к^3 (р) — во столько увеличится объем. Следовательно, при увеличении длины ребра в к раз объем увеличи-вается в к* раз.
а)    при к = 2 объем увеличится в 2^3 = 8 раз;
б)    при к = 3 объем увеличится в З^3 = 27 раз;
в)    при к = 10 объем увеличится в 10^3 = 1000 раз.

Решим задачу в общем виде. Пусть изначально ребро куба составляет а единиц, тогда объем — V=a^3 кубических единиц. При увеличении длины ребра в к раз, где к — натуральное число, объем составит У2 = (к • а) кубических единиц.
V2/V1 = (к • а)^3: а^3 = к^3 • а^3: а^3 = к^3 (р) — во столько увеличится объем. Следовательно, при увеличении длины ребра в к раз объем увеличи-вается в к* раз.
а)    при к = 2 объем увеличится в 2^3 = 8 раз;
б)    при к = 3 объем увеличится в З^3 = 27 раз;
в)    при к = 10 объем увеличится в 10^3 = 1000 раз.