Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Составьте программу.которая определяет принадлежит ли введенное целое число ИКС интервалу (10.20) и выводит на экран соответствующие сообщение: Принадлежит либо не принадлежит

Ответ оставил Гость

Var A:integer;
Begin
WriteLn(Введи целое число);
ReadLn(A);
if (A>10)and(A<20) then WriteLn(Принадлежит)
else WriteLn(Не принадлежит20)
End.