Ответы на вопрос:
Бережливым быть умей, и по клавишам не бей, там, учтите этот факт, электрический контакт. если вводишь ты ответ, а компьютер скажет "нет", по дисплею не стучи,лучше правила учи! разрешать работу строгос разрешения педагога,и учтите : вы в ответе, за порядок в кабинете!
Var a,af,al: integer; begin writeln('введите число'); readln(a); if a< 10 then writeln('ответ: ',a) else if a< =99 then begin af: =a div 10; al: =a mod 10; if af> al then writeln('ответ: ',al) else writeln('ответ: ',af) end else if a< =999 then begin af: =a div 100; al: =a mod 10; if af> al then writeln('ответ: ',al) else writeln('ответ: ',af) end else if a< =9999 then begin af: =a div 1000; al: =a mod 10; if af> al then writeln('ответ: ',al) else writeln('ответ: ',af) end else if a< =30000 then begin af: =a div 10000; al: =a mod 10; if af> al then writeln('ответ: ',al) else writeln('ответ: ',af) end; end.
Популярно: Информатика
-
valeralch21.11.2021 02:09
-
Malayalam27.03.2022 00:03
-
Даниил35814.07.2020 12:15
-
lineage21630.12.2020 23:23
-
Dodgesantafe27.02.2020 13:53
-
Super36402.11.2022 19:18
-
Ender22223.11.2020 17:22
-
anadtadiamoroso28.03.2020 23:49
-
пипл412.02.2020 02:37
-
31264506.06.2020 01:40