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.
Компьютер, процесор, мышка,провод, мелкий провод
Ну...Вообще компьютер изначально был создан для хранения, обработки информации, но не для этого...Ну ладно, ближе к теме...
Я думаю, что интернет был создан для получения более объёмной информации. Короче напиши, что то вроде этого:
Для получения информации ( описываешь какую), затем пишешь: для отправки sms/mms ну и т.д..
Удачи)
Вычтем из 10100 00001 столбиком по правилам сложения в двоичной системе. Получим 10011
ДЛЯ ОБЕСПЕЧЕНИЯ НОРМАЛЬНОЙ РАБОТЫ КОМПЬЮТЕРА,ЕГО ОБСЛУЖИВАНИЯ И НАСТРОЙКИ.