Как приступить к решению задачи 9 класса: - (pascal) напишите программу, которая в последовательности натуральных чисел определяет максимальное число,оканчивающееся на 9. программа получает на вход количество чисел в последовательности, а затем сами числа. в последовательности всегда имеется число оканчивающееся на 9. количество чисел не превышает 1000. введенные числа не превышают 30000. программа должна вывести одно число: максимальное число, оканчивающееся на 9.
(pascal) напишите программу, которая в последовательности натуральных чисел определяет максимальное
- Автор темы стремная гусеница
- Дата начала
program MaxEndingWith9; var n, i, num, maxNum: Integer; begin maxNum := -1; { инициализируем maxNum значением меньше любого возможного числа } Write('Введите количество чисел в последовательности: '); ReadLn
; for i := 1 to n do begin Write('Введите число ', i, ': '); ReadLn(num); { Проверяем, оканчивается ли число на 9 } if (num mod 10 = 9) then begin { Если да, проверяем, больше ли оно текущего максимума } if (num > maxNum) then begin maxNum := num; end; end; end; WriteLn('Максимальное число, оканчивающееся на 9: ', maxNum); end.
; for i := 1 to n do begin Write('Введите число ', i, ': '); ReadLn(num); { Проверяем, оканчивается ли число на 9 } if (num mod 10 = 9) then begin { Если да, проверяем, больше ли оно текущего максимума } if (num > maxNum) then begin maxNum := num; end; end; end; WriteLn('Максимальное число, оканчивающееся на 9: ', maxNum); end.