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

Материал из wiki.nntc.nnov.ru
Версия от 11:03, 12 марта 2008; 192.168.159.2 (обсуждение) (Новая: 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; repe...)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к навигации Перейти к поиску

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.