Что нужно сделать в этом задании?
<span>Первый сказал: “Все мы лжецы” - он лжец, так как есть и рыцари
</span>Второй сказал: <span>“Все, кто говорили до меня, лжецы” - он рыцарь
Третий сказал: </span><span>“Все, кто говорили до меня, лжецы” - он лжец, так как второй рыцарь
Остальные тоже лжецы, так как говорят тоже самое.
Ответ: рыцарь один
</span>
Рассмотрим алфавит состоящий из следующих символов:0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F
Алфавит состоит из 16 симолов (0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)
Мощность: 16
Var z1,z2:byte;
begin
for z1:=1 to 9 do begin
for z2:=0 to 9-z1 do begin
writeln(z1,z2,z1+z2);
end;
end;
end.
По просьбе автора задачи - вариант с 3 циклами
var x,y,z:byte;
begin
for x:=1 to 9 do begin
for y:=0 to 9 do begin
for z:=0 to 9 do begin
if (x+y=z) then writeln(x,y,z);
end;
end;
end;
end.