Var i :integer;
begin
for i := 30 downto 10 do
writeln(sqr(i));
readln;
end.
Программа должна выглядеть вот так:
program simvol;
const
n=5;
var
A:array[1..n,1 ..n]of integer;
i, j:integer;
Begin;
for i:=1 to n do
begin
for j:=1 to n do
begin
(A[i,j]):=random(100);
write(A[i,j]:4);
end;
writeln;
end;
end.
Вы не объявили переменные i и j, так же допустили сиснтаксические ошибки.
Очень интересные задания)))
179 - последняя
180. Первую строку наверное не надо писать. Со второй можно начать. Р - разбойник, К - купец.
181. Стрелками показано откуда и куда переливаем
59.Ответ:26,все что смог!