Обсуждение:Лабораторная работа №1 Программирование задач обработки данных простых стандартных типов

program Project1;

       {$APPTYPE CONSOLE}

var n, t, p, A,B: integer; begin writeln ('vvedite natyralnoe chislo'); readln (n); writeln ('vvedite' ,A, 'i' ,B); readln (A, B); p:=0; repeat

 t:=n mod 10;
 n:=n div 10;
  if t>A
   then p:=p+1;

until n>0; writeln ('количество таких цифр',p); if (n>A) and (n<B)

 then writeln ('принадлежит');
 writeln ('не принадлежит');
 if n mod 3=0;
    n mod 4=0;
    n mod 5=0;
    then writeln ('кратно');
    writeln ('не кратно');

end.