program pr1; uses crt; var mas: array[1..4] of integer; stroka: string; i,min,b: integer; beginclrscr; writeln('vvedite chislo'); readln(stroka); for i: =1 to 4 do val(stroka[i],mas[i],b); min: =10; b: =0; for i: =1 to 4 do if mas[i]< min then min: =mas[i]; for i: =1 to 4 do if mas[i]=min then b: =b+1; writeln(b); end.
af-rc7893
22.12.2021
1. информация — сведения о чём-либо, независимо от формы их представления.2.информатика наука о методах и процессах сбора, хранения, обработки, анализа и оценки информации , обеспечивающих возможность её использования для принятия решений.3. внутренние свойства — это свойства, органически присущие объекту. они обычно «скрыты» от изучающего объект и проявляют себя косвенным образом при взаимодействии данного объекта с другими. внешние свойства — это свойства, характеризующие поведение объекта при взаимодействии с другими объектами.4.логическая информация, адекватно отображающая объективные закономерности природы, общества и мышления, получила название научнойинформации. ее делят по областям получения или использования на следующие виды: политическая,техническая,биологическая,, и т.д.; по назначению - на массовую и специальную.6. бит, байт, килобит, мегабайт, гагабайт.7. система счисления , в которой значение каждого числового знака (цифры ) в записи числа зависит от его позиции (разряда).
yurovolga
22.12.2021
Язык программирования и известный -паскаль; специальная микросхема - чипсет; то же, что и дисковод - накопитель; один из первых языков программирования - бейсик; сенсорная панель в ноутбуке - тачпад; они подразделяются на матричные, струйные и лазерные - принтер; универсальное устройство вывода информации - монитор; набор однотипных переменных, объединенных одним именем -массив; портативный вариант компьютера - ноутбук; мы его преобразуем из начального состояния в конечное -объект
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Сколько раз встречается минимальная цифра в записи введённого с клавиатуры 4-х значного числа?
program pr1; uses crt; var mas: array[1..4] of integer; stroka: string; i,min,b: integer; beginclrscr; writeln('vvedite chislo'); readln(stroka); for i: =1 to 4 do val(stroka[i],mas[i],b); min: =10; b: =0; for i: =1 to 4 do if mas[i]< min then min: =mas[i]; for i: =1 to 4 do if mas[i]=min then b: =b+1; writeln(b); end.