Я бы решила так .
Сама запись решения с объяснениями, поэтому, возможно, нужно как-то по-другому записать
Id 1
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
Program prog;
uses crt;
Var a,b,x: real;
begin
clrscr;
write('x = ');
readln(x);
write('a = ');
readln(a);
write('b = ');
readln(b);
writeln;
if (a<=x)and(b>=x) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
end.
Задача решается перебором всех целых положительных двухзначных чисел (в цикле от 11 до 99 включительно с шагом 1). Для того, чтобы выяснить, кратно ли число 3, необходимо использовать функцию остатка от целочисленного деления (mod).
Команда x:=4 присваивает переменной x значение 4