Var a,k,b,c:longint;
begin
read (a);
k:=a div 100;
b:=a div 10 mod 10;
c:=a mod 10;
if ((k>b) and (k>c)) then writeln (k) else
if ((b>k) and (b>c)) then writeln (b) else
if ((c>b) and (c>k)) then writeln (c);
<span>end.</span>
Я думаю что нет потому что не все они работают и имеют дело в текстами по этому ответ нет надеюсь что помогла
В первом варианте приходится закрашивать лишь мелкие треугольники
во втором же заливается все кроме них
Скопировать: Ctrl+C Вставить Ctrl+V
Пингвин - линукс, значит, Руслан с этой познакомился ОС.
<span>Никита тогда с виндоусом, а Саша с мэкOS</span>