Question

Сделайте пожалуйста. Поставлю лайк и лучший ответ. Прошу вас Инфа!!!!!​

Answer 1

1) Определяет делиться ли число на 10

var x:integer;

a: boolean;

begin

write('Введите х=');

read(x);

a:=x mod 10=0;

write('Число ',x,' делиться на 10 -',a);

end.

2) Определяет находиться ли число между 10 и 100 (10 и 100 не включены в диапазон)

var x:integer;

a: boolean;

begin

write('Введите х=');

read(x);

a:=(x>10) and (x<100);

write('Число ',x,' больше 10 и меньше 100 -',a);

end.

Как то так)