1. Перевод текста с английского языка на русский можно назвать: б) Информационным процессом обработки информации; 2. Измерение температуры представляет собой в) процесс получения 3. Перевод текста с английского языка на русский можно назвать: в) процесс полученияд) процесс использования. 4. Записная книжка обычно используется с целью: г) хранения, обработки и передачи информации; 5. Примером передачи информации может служить процесс: а) отправление телеграммы 6. Какие из перечисленных процессов являются информационными: б) процессы получения, поиска, хранения, передачи, обработки и использования информации 7. Под носителем информации понимают: в) среду для записи и хранения информации
Попробую. Начало Ввод количества номиналов N Объявляем массивов X(N), Y(N) Цикл по i от 1 до N Ввод очередного номинала X(i) Конец цикла по i Ввод суммы для выдачи S Подпрограмма сортировки массива X(N) по возрастанию. Например, пузырьковой сортировкой. k = 0 ' k - это количество банкнот Цикл, пока S > 0 Если S < X(1), то ' Если остаток меньше самого маленького номинала S = 0: k = -1 ' то выдать полную сумму невозможно Выход сразу из цикла по S Конец Если i = N Цикл, пока X(i) > S i = i - 1 Конец цикла по X(i) Y(k) = X(i) ' записываем очередную банкноту в массив Y(N) S = S - X(i) ' определяем остаток k = k + 1 ' увеличиваем счетчик банкнот Конец цикла по S Если k = 0, то k = -1 ' выдать сумму не смогли Вывод k Если k > 0, то ' Если сумму можно выдать Цикл по i от 1 до k Вывод Y(i) + " " Конец цикла по i Конец Если Конец
Алгоритм пузырьковой сортировки: Начало подпрограммы F = True ' Это булева переменная - признак успешности сортировки Цикл вечный без всяких условий Если F = True, то F = False Цикл по i от 1 до N-1 Если X(i) > X(i+1), то ' если два соседних числа не отсортированы Q = X(i) : X(i) = X(i+1) : X(i+1) = Q ' меняем местами эти числа F = True Конец Если Конец цикла по i Иначе Выход из Цикла ' Если F = False Конец Если Конец вечного Цикла Конец подпрограммы
var s:string;
i,kol_prob, kol_a:integer;
begin
write('Введите предложение: ');
readln(s);
writeln('Длина строки: ',s.Length);
for i:= 1 to s.Length do
begin
if s[i] = ' ' then
kol_prob := kol_prob + 1;
if s[i] = 'а' then
kol_a := kol_a + 1;
end;
writeln('Пробелов в тексте: ', (kol_prob / s.Length * 100):5:2,'%');
writeln('Частота "а" в тексте: ', (kol_a / s.Length):5:2);
end.
Объяснение:
Написано в PascalABC.