Регистрация
kingofpopmusic
20.03.2023 12:28
Информатика
Есть ответ 👍

Протестируйте электронные каталоги библиотек: 1) Российская государственная библиотека (Москва) 2)ГПНТБ России (Москва) 3)ИНИОН РАН (Москва) 4) Национальная библотека России (Санкт-Петербург) 5) Библеотека конгресса (Вашингтон) 6) Британская национальная библиотека (Лондон) 7) Национальная библиотека Франции help

106
180
Посмотреть ответы 1

Ответы на вопрос:

BlaSta
BlaSta
4,7(82 оценок)
Var num, mnum: integer; begin mnum : = 0; readln(num); while num < > 0 do begin if abs(num mod 10) > mnun then mnum : = abs(num mod 10); num : = num div 10; end; writeln(mnum); end.

Популярно: Информатика