Вот как-то так. Я в одной программе и 1) и 2) реализовал, там что не так будет-подправишь.
Может нужно писать в предпоследней строчке так:
.... z:0:3 ... -- вместо запятой должно стоять двоеточие
Просто не очень понятен вопрос....
Var
n:integer;
i,j,k:byte;
a:array[1..3] of byte;
begin
Write('Введите натуральное трехзначное число: ');
Read(n);
for i:=1 to 3 do
begin
a[i]:=n mod 10;
n:=n div 10
end;
for i:=1 to 3 do
for j:=1 to 3 do
for k:=1 to 3 do
if a[i]<>0 then Write(a[i],a[j],a[k],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное трехзначное число: 307
777 770 773 707 700 703 737 730 733 377 370 373 307 300 303 337 330 333
Помогу только со вторым заданием. Прости(
Также сверху ставится один значок, я его найти не смогла, поэтому буду помечать как "значок". На всякий случай оставлю рисунок, как он выглядит.
НЕ (Ударение на первый слог) И (Количество букв четное)
Корова - 0 (сверху значок) = 1 × 1 = 1
Козел - 0 (сверху значок) = 1 × 0 = 0
Кошка - 1 (сверху значок) = 0 × 0 = 0
Конь - 1 (сверху значок) = 0 × 1 = 0
Ответ: корова.
—
Удачи)))