Написать программы и если можно с блок схемой, но для начала просто программы , уиоляюю(паскаль)
1. два числа посредством генератора псевдослучайных чисел в диапазоне от 5 до 120 включительно. заменить первое число нулем, если оно меньше или равно второму, и оставить без числа изменений в противном случае.
2. два числа посредством генератора псевдослучайных чисел в диапазоне от -10 до 40 включительно. вывести первое число, если оно больше второго, и оба числа, если это не так.
3. число n задается посредством генератора псевдослучайных чисел в диапазоне от 7 до 17 включительно. вычислить n! применяя циклы.
4. число n задается посредством генератора псевдослучайных чисел в диапазоне от 7 до 17 включительно. число a задается посредством генератора псевдослучайных чисел в диапазоне от 1 до 5 включительно вычислить an.
5. найти и вывести на экран самое длинное слово в строке: ‘релейный локомотивный дешифратор числового кода’.
6. посчитать, сколько раз в введенной строке ‘ab bcd cd cda abc cd bddbc’ встречается сочетание ‘cd’.
7. задать квадратную матрицу ранга n (n вводится с клавиатуры, элементы массива – числа в диапазоне от 0 до 50, полученные посредством генератора псевдослучайных чисел). заменить матрицу на единичную, если сумма элементов матрицы – четное число.
8. задать квадратную матрицу ранга n (n вводится с клавиатуры, элементы массива – числа в диапазоне от 0 до 100, полученные посредством генератора псевдослучайных чисел). рассчитать сумму элементов матрицы, элементы которой лежат выше главной диагонали.
9. задано случайное число в диапазоне от 0 до . поменять порядок цифр в числе на обратный.
2. После знака препинания, обязательно ставится пробел (кроме тире и дефиса)
3. Для предотвращения разрыва частей слова или сочетания слов используется неразрывный дефис
4. Чтобы не допустить отрыв одного слова от другого в конце сроки
5. Вставка символа или сочетания клавиш.
6. "Дефис" - ставится без пробелов, "тире" - ставится с пробелами до и после знака.
7. Слова в кавычках или скобках, не должны отделяться от них пробелами.
8. Проверка текста при подготовке к печати.
9. Правописание, расстановка переносов, найти и заменить и т.д
10. Параметры-меню Сервис-Правописание-Установить флажки "Автоматически проверять орфографию" и "Автоматически проверять грамматику".
11. Контекстное меню - (слово волнистой линией) - Пропустить слово, откорректировать его или занести в словарь.(ВРОДЕ ТАК)
12. При выравнивании текста по ширине могут возникать слишком большие интервалы между словами. Чтобы это исправить, следует задать функцию автопереноса и этот процесс автоматизируется.
13. Выделить фрагмент текста, который нужно удалить и нажать на клавиатуре клавишу "delete".
14. Копировать или вырезать.
иначе не сможем выполнить 1 и 2 пункт задания.
Исправляем if N mod 10 k:=N mod 10; на if (N mod 10 < k) then k:=N mod 10;
Исправляем N:N div 10; на N:= N div 10;
После исправления ошибок при вводе 537 получим 3
Программа будет работать правильно для любого числа,
у которого вторая цифра слева меньше первой цифры, например:
7193
Чтобы программа работала правильно для всех чисел надо
изменить это: while N > 10 do на while N > 0 do
После всех исправлений код программы стал таким:
var
N, k: integer;
begin
readln(N);
k := 9;
while N > 10 do
begin
if (N mod 10 < k) then k := N mod 10;
N := N div 10;
end;
write(k)
end.