Напишите программу,которая в последовательности натуральных - вопрос №5688027 от margusqw 21.10.2020 12:11

Question

Информатика: Напишите программу,которая в последовательности натуральных чисел определяет наибольшее число ,кратное 3и оканчивающееся на 6.программа получает на вход количество чисел в последовательности ,а затем сами числа.в последовательности всегда имеется число кратное 3 и оканчивающееся на 6. количество чисел не превышает 1000.введенные числа не превышают 30000. программа должна вывести одно число : наибольшее число,кратное 3 и оканчивающееся на 6.входные данные: 5,18,126,165,36,135.выходные данные: 126

margusqw · Answer

Var max,n,x:integer; begin writeln( Введите количество цифр ); read(n); max:=0; repeat writeln( Введите число. (Осталось ввести ,n, ) ); readln(x); if (x mod 3=0) and (x mod 10=6) and (abs(x) max) then max:=x; n:=n-1; until n=0; writeln( Максимальное число, кратное 3-м и заканчивающееся на 6 = ,max); end....