Program test; var a,i,z,max:int64; begin readln(a); for i:=1 to Length(InttoStr(a)) do beginz:=a mod 10; a:=a div 10; if max<z then max:=z; end; writeln(max); end.
а) Рюкзак - специализированная сумка для длительной переноски на спине различных грузов. Он очень вместителен. Снаружи у рюкзака есть карманы, в которые можно положить какие-то мелкие вещи.
б) К началу учебного года мае купили новый рюкзак. Он тёмно-синего цвета, на кармане изображена кукла Парой.
Новый рюкзак мне сразу понравился. Он не только очень яркий и красивый, но и вместительный. Внутри него два отделения. Туда можно положить учебники, тетради, дневник, пенал и альбом для рисования. Снаружи у рюкзака - большой карман, который застёгивается на молнию. В этот карман я кладу телефон, ключи от квартиры.
Рюкзак мне очень дорог. Он помогает мне каждый день переносить школьные принадлежности и все мои книги и тетради всегда в порядке!
Существует немало способов показать то, что теплый воздух поднимается вверх, в то время как холодный воздух опускается вниз. Иногда для этого даже не надо проводить никаких опытов, а достаточно понаблюдать.
Так например, посмотрим на кипящий чайник. Пар из его носика всегда поднимается вверх, потому что он теплее, чем окружающий воздух. Или дым от костра. В безветренную погоду он столбом поднимается вверх, ведь он более теплый.
Зимой можно просто открыть форточку и мы увидим как теплый воздух будет стремиться вверх, превращаясь на выходе в пар и становясь видимым -это в нем происходит конденсация влаги от переохлаждения.
var a,i,z,max:int64;
begin
readln(a);
for i:=1 to Length(InttoStr(a)) do
beginz:=a mod 10;
a:=a div 10;
if max<z then max:=z;
end;
writeln(max);
end.