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

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

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

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

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