pascal
Объяснение:
var n:integer;
begin
Write('Введите число: ');
ReadLn(n);
if (n>3) and (n<8) then
WriteLn('Принадлежит')
else
WriteLn('Не принадлежит');
end.
pascal
Объяснение:
var n:integer;
begin
Write('Введите число: ');
ReadLn(n);
if (n>3) and (n<8) then
WriteLn('Принадлежит')
else
WriteLn('Не принадлежит');
end.