program z1;
const n=3; m=4;
var i,j,x:integer;
mas:array [1..n, 1..m] of integer;
begin
x:=5;
for i:=1 to n do
for j:=1 to m do
begin
mas[i,j]:=sqr(x);
x:=x+1
end;
for i:=1 to n do
begin
for j:=1 to m do write (mas [i,j]:5);
writeln
end
end.
Объяснение:
Убрали лишнюю ; в строке: for j:=1 to m do;
Добавили составной оператор (begin - end) после этой строки
Изменили строку x:=x+11; на x:=x+1
Изменили форматированный вывод write (mas [i,j],' '); на write (mas [i,j]:5); - так ровнее будет
Добавили в конце end.
Если всё делать в 1 цикле:
program z1;
const n=3; m=4;
var i,j,x:integer;
mas:array [1..n, 1..m] of integer;
begin
x:=5;
for i:=1 to n do
begin
for j:=1 to m do
begin
mas[i,j]:=sqr(x);
write (mas [i,j]:5);
x:=x+1
end;
writeln
end
end.
10000x4000x500x30x4
Цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. Определите название позиции и ее значение для каждой цифры (справа налево).
Пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево).
7 соответствует единицам (значение = 1).
2 соответствует десяткам (значение = 10).
8 соответствует сотням (значение = 100).
5 соответствует тысячам (значение = 1000).
2. Снова набираем и переливаем в 8 л кувшин.
3. Наливаем снова и переливаем в 8 литровый кувшин 2 литра, а в 3-х литровом остался 1 л.
4. Из 8 л все выливаем, а туда переливаем 1 л.
5. А теперь два раза наполняем 3- х л. кувшин и доливаем по 3 литра в 8 л. Будет 7 литров