Ответы на вопрос:
PascalABC.NET 3.5.1 + .NET Framework 4.7.1
begin
var A := ReadString().ToCharArray;
A.ConvertAll(p -> char.GetNumericValue(p)).Max.Println;
end.
Python 3.7.2
number = [int(i) for i in list(input())]
print(max(number))
var
_counter, i : integer;
begin
for i := 100 to 999 do
if ((i mod 6 = 0) and (i mod 10 = 4)) then
_counter := _counter + 1;
writeln(_counter);
end.
Популярно: Информатика
-
lol104508.03.2021 23:12
-
nataxasan198428.02.2021 21:21
-
07890123456723.03.2022 04:22
-
TimurZel10.04.2021 22:46
-
ane4ka25800016.03.2021 23:46
-
Aytgbssh22.12.2022 09:58
-
dkfur14.07.2022 17:06
-
Kseniya0530.06.2021 14:22
-
Magomedrasul0555501.05.2021 21:48
-
Fae4209.05.2021 02:10