Определить, встречается ли в ведённом числехотя бы одна цифра неравная трём (написать программу на паскале)

var a,z:integer;

q:boolean;

begin

read(a);

while a>0 do begin

z:=a mod 10;

if (z>3)and(z<8) then q:=true;

a:=a div 10;

end;

writeln(q);

end.

Объяснение:

Если одна цифра больше 3, но меньше 8

надеюсь это то, что вы имели ввиду.

По горизонтали:
1. Некоторый предмет.
2. Описание модели с формального языка.
3. Граф, предназначенный для отображения вложенности, подчиненности, наследования и т.п. между объектами.
4. Общее название моделей, которые можно осязать.
5. Инструмент для компьютерного моделирования.
6. Общее название моделей, которые представляют из себя совокупность полезной и нужной информации об объекте.
По вертикали:
7. Информационная модель, состоящая из строк и столбцов.
8. Средство для наглядного представления состава и структуры системы.
9. Процесс построения моделей.
10. граф, отображающий последовательность выполнения действий.
11. Упрощенное представление реального объекта, процесса или явления.
 
ответы:
По горизонтали:
1. объект; 2. формализация; 3.дерево; 4. материальные; 5. компьютер; 6. информационные.
По вертикали:
7. таблица; 8. граф; 9. моделирование; 10. схема; 11. модель.

#include <iostream>

#include <cmath>

using namespace std;

signed main() {

   ios_base::sync_with_stdio(0);

   cin.tie(0);

   cout.tie(0);

   int n;

   cin >> n;

   int ans = 0;

   int a[n],b[n];

   for(int i = 0; i < n; i++)

       cin >> a[i];

   for(int i = 0; i < n; i++)

       cin >> b[i];

   for(int i = 0; i < n; i++)

       if(a[i] > b[i])

           ans++;

   cout << ans;    

}

P.S что было сложно или непонятно, задача ну очень простая, на реализацию