Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.
1)pascal
2)C++
3)ассемблер
4)python
5)java три последних посмотрел по интернету но вроде всё сходится
Нет сам делай дурачек конспект это изи!
4литра черной в бутыли
5л белой в ведре
3л синей в круглой банке
2л желтой в плоской
А вот и нет! Они называются Croutons! Да, точно! Они называются Croutons!