Question

Для целого случайного числа из интервала [-30;20] определите : а) попадает ли оно в интервал [5;20] б) кратно ли оно 3 или 5 . В Паскале

Answer 1

Var k : integer;
Begin   
Write('Введите цифру от -30 до 20: '); 
  ReadLn(k); 
  if ((k <= 20) and (k>= 5)) then    WriteLn('Промежутку принадлежит')   
else 
 WriteLn('Промежутку не принадлежит');
End.

Вот и всё! Будут вопросы , пиши.