<span>Свойства комьпютера: Версия виндоус, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьектов: в основном размещение и размер, дата последнего изменения.</span>
Program z1;
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.
Var
a, b, c, sum: integer;
function min(x, y: integer): integer;
begin
if(x > y) then result := y
else result := x;
end;
begin
sum := 0;
read(a, b, c);
a := min(a, min(b, c));
while a > 0 do
begin
if(a mod 10 mod 2 <> 0) then sum := sum + a mod 10;
a := a div 10;
end;
write(sum);
end.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
Writeln((ReadInteger.ToString.Where(t->t='9')).Count=1)
end.
<u>Примеры</u>
35423
False
13290192
False
132903
True