Есть ответ 👍

Стихи про правило поведения в кабинете информатики для дошкольников

162
476
Посмотреть ответы 2

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


Бережливым быть умей, и по клавишам не бей, там, учтите этот факт, электрический контакт. если вводишь ты ответ, а компьютер скажет "нет", по дисплею не стучи,лучше правила учи! разрешать работу строгос разрешения педагога,и учтите : вы в ответе, за порядок в кабинете!
Hujaev01
4,7(12 оценок)

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.

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