условие Фано: ни один из кодов не является началом другого кода.
F=110
<span>uses crt;
const s='Софокл';
var n,m,i,j,cf,ct:integer;
begin
randomize;
n:=25;
m:=(80)div n;
for i:=1 to n do
begin
gotoXY(m*(i-1),i);
cf:=random(9)+8;//от голубого до желтого
ct:=random(9);//от синего до серого
textbackground(cf);
textcolor(ct);
write(s);
end;
end. попробуй это </span>
X=Vll+III; V=III+II
по моему так.
Буду благодарен за лучший ответ.
Возможно артна, но я не уверен
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.