program xxx; var a, b, min : integer; begin write('введите число а=');
readln(a);
min: =10; while a < > 0 do begin b: = a mod 10; if b < min then min: =b; a: = a div 10 end; writeln('минимальная цифра = ', min); readlnend.
Ответ дал: Гость
информатика - наука о способах получения, накопления, хранения, преобразования, передачи, защиты и использования информации.
информация - сведения о чем-либо, независимо от формы их представления.
информационные технологии - широкий класс дисциплин и областей деятельности, относящихся к технологиям создания, и обработки данных, в том числе с применением вычислительной техники
Ответ дал: Гость
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
Популярные вопросы