- Теория:
- Алгоритмы:
- Числа:
|
Начало > Глава I. Проверка условий |
ГЛАВА I
АЛГОРИТМ
Проверка условий
|
Разрядность числа
if kc=3 then writeln(ch, ' - трехзначное число') ;
{где kc - количество цифр числа ch}
или
If (ch>=100) and (ch<1000) then writeln(ch, ' - трехзначное число');
{где ch - проверяемое число };
или
p:=x div 100 >0; {p:boolean}
write('Разрядность числа не меньше 3 ') ; |
Четность
If ch mod 2=0 then writeln(ch,' четное') ;
или
If not odd(x) then writeln(ch,' четное') |
Кратность
If ch mod x=0 then writeln(ch,' кратно ', x) ; |
Окончание числа на определенную цифру
If ch mod 10=x then writeln(ch,' заканчивается на ', x) ; |
Положительные и отрицательные числа
If ch>0 then writeln(ch,' положительное') ;
If ch<0 then writeln(ch,' отрицательное') ;
|
|
|
|
|
|
|