Это легко!!4-1-осталось красных,7-1-осталось зелёных,12-1-очталось жёлтых и 11-1-осталось синих
Дели число на 2 и запиши остатки в обратном порядке
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var (a,b):=ReadReal2;
if a<>b then Writeln(Min(a,b))
else Writeln('РАВНЫ')
end.
<u>№2</u>
begin
var (a,b):=ReadInteger2;
if a.IsEven then Write(a,' ');
if b.IsEven then Write(b,' ');
if a.IsOdd and b.IsOdd then Writeln('НЕТ')
end.
В качестве фрагмента текста рассматривается символ. Но есть небольшое условие, чтобы символ стал фрагментом компьютерного текста его нужно специальным образом выделить.