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 ')
надо чтоб находило и выводило

Alexandra0903    1   16.10.2019 21:33    3