Как правельно сделать я незнаю
вот подсказка
Если будет ошибка на строчке:
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
можешь просто убрать ее.
Она может не работать из за разных версий Pascal-я, т.к. не везде есть IntToStr.
--------------------------------------------------------------------
var
A: array [1..2,1..2,1..2] of longint;
i, j, k: byte;
sum: longint;
begin
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
begin
write('Введите A[' + IntToStr(i) + ',' + IntToStr(j) + ',' + IntToStr(k) + '] = ');
ReadLn(A[i, j, k]);
end;
sum := 0;
for i := 1 to 2 do
for j := 1 to 2 do
for k := 1 to 2 do
sum := sum + A[i, j, k];
writeln('Сумма всех элементов трехмерного массива = ', sum);
readln;
end.
А можно порусски пожалуйста написать
125,75=1111101<span>.11(2)
</span>125,75=175.6(8)
125,75=7<span>D.C(16)
</span>453,125=111000101.001(2)
453,125=705.1(8)
453,125=1C<span>5.2(16)</span>
{Задание а}
var
i:integer;
begin
for i := 90 downto 65 do
writeln(chr(i), ' ', chr(i), ' ', chr(i), ' ', chr(i));
end.
{Задание б}
var
i, j:integer;
begin
for i := 90 downto 65 do
begin
for j := 90 downto 65 + 90 - i do
write(chr(j), ' ');
writeln;
end;
end.
{Задание в}
var
i, j:integer;
begin
for i := 1 to 9 do
begin
for j := 1 to 9 do
if i = j then
write(i, ' ')
else
write('0 ');
writeln;
end;
end.