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.

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

Answer 2

Для определения, попадает ли случайное целое число из интервала [-30;20] в интервал [5;20] и кратно ли оно 3 или 5 в языке программирования Pascal, вы можете использовать следующий код:

pascalCopy code
program RandomNumberCheck;
var
  randomNumber: integer;
begin
  // Генерируем случайное целое число из интервала [-30;20]
  randomize;
  randomNumber := random(51) - 30; // Генерируем число от -30 до 20

  // Проверяем, попадает ли число в интервал [5;20]
  if (randomNumber >= 5) and (randomNumber <= 20) then
    writeln('Число попадает в интервал [5;20]')
  else
    writeln('Число не попадает в интервал [5;20]');

  // Проверяем, кратно ли число 3 или 5
  if (randomNumber mod 3 = 0) or (randomNumber mod 5 = 0) then
    writeln('Число кратно 3 или 5')
  else
    writeln('Число не кратно 3 или 5');
end.

Этот код генерирует случайное целое число из интервала [-30;20], затем проверяет, попадает ли оно в интервал [5;20], а также проверяет, кратно ли оно 3 или 5. Результаты проверок выводятся на экран.