Помогите пожалуйста! Надо написать программу определяющую характеристику произвольного...

0 голосов
30 просмотров

Помогите пожалуйста! Надо написать программу определяющую характеристику произвольного числа введённого через клавиатуру.


Информатика (18 баллов) | 30 просмотров
Дан 1 ответ
0 голосов

var a:integer;

begin

write('Введите произвольное число'); readln(а);

if a = 0 then begin

writeln ('Введен нуль');

exit;

end;

if а > 0 then writeln ('Число положительное');

else writeln ('Число отрицательное');

if a mod 2 = 0 then writeln('Число четное');

if a mod 3 = 0 then writeln('Число кратно 3');

if a mod 5 = 0 then writeln('Число кратно 5');

if a mod 7 = 0 then writeln('Число кратно 7');

if a mod 9 = 0 then writeln('Число кратно 9');

if a mod 10 = 0 then writeln('Число кратно 10');

end.

(208 баллов)
0

Проверки можно продолжать, т.к. проверяется число, а не цифра. Но этого должно хватить