n = int(input())
for i in range(0, n):
k = int(input())
m = 0
n = int(input())
for i in range(0, n):
k = int(input())
m = 0
n = int(input())
for i in range(0, n):
k = int(input())
if (k % 5 == 0) and (k > m):
m = k
m = 0
n = int(input())
for i in range(0, n):
k = int(input())
if (k % 5 == 0) and (k > m):
m = k
print(m)
Объяснение:
Объявим переменную m, где мы будем хранить ответ, равную 0 (так как в задании представлены натуральные числа, а 0 является ближайшим ненатуральным), и запишем ее в начало программы.Теперь можем работать с переменной k. Если остаток от деления на 5 равен 0 (т.е. кратно 5) и значение k больше значения m (т.к. m — наш ответ), то присвоим значение из переменной k переменной m.И в самом конце выводим переменную m — наш ответ.
Program CountA;
Uses Crt;
var a,n,x,i:integer;
begin
clrscr; // очищаем экран
write('Введите число n:');
readln(n); // ввод данных
write('Введите цифру а: ');
readln(a); // ввод данных
x:=1; i:=0; i-счётчик цифр а
while (n<>0) do // Пока n не стало равным нулю
begin
x:=n mod 10; // в x остаток от деления на 10 т.е -отдельная цифра числа
if (a=x) then i:=i+1; если есть совпадение то i увеличиваем на 1
n:=n div 10; переходим к следующему разряду числа (сотни десятки единицы)
end;
writeln('Цифра ',а,' Встречается в данном числе-', i, ' раз(а)');
readkey; // Пауза до нажатия на любую клавишу
end.
