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.
I большая означает объём информации, например.
I=K*i - для текста
I=n*i*v*t - для звука(n - количество потоков(моно, стерео, квадро....)
I=h*w*i - для изображений(h, w - высота и ширина картинки)
10 50 true
8 45 true
6 40 true
4 30 true
2 25 true
0 20 false
k:=10;
t:=50;
while k>1 do
begin
k:=k-2;
t:=t-5;
end;
write(k,n);
(кумир)
Использовать Робот
алг поле
нач
вниз
закрасить
вниз
закрасить
вниз
вправо
закрасить
вправо
закрасить
вправо
вверх
закрасить
вверх
закрасить
вверх
влево
закрасить
влево
закрасить
влево
кон
Меню -> Вставка -> Рисунок