Обсуждение:Лабораторная работа №1 Программирование задач обработки данных простых стандартных типов
Версия от 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.