Question

Составить программу для проверки является ли число больше 5 и меньше 20 одновременно Паскаль​

Answer 1

program proverka;

var x:integer;

begin

write('Введите число -> ');

read(x);

if (x>5)and(x<20) then writeln ('Число больше 5 , но меньше 20')else

writeln ('Число меньше 5, или больше 20');

end.

Answer 2

Вот пример программы на языке Pascal, которая проверяет, является ли число больше 5 и меньше 20 одновременно:

pascalCopy code
program CheckNumber;
var
  number: integer;
begin
  write('Введите число: ');
  readln(number);

  if (number > 5) and (number < 20) then
    writeln('Число ', number, ' больше 5 и меньше 20.')
  else
    writeln('Число ', number, ' не удовлетворяет условию.');

  readln;
end.

При выполнении программы пользователю будет предложено ввести число. Затем программа проверяет, является ли число больше 5 и меньше 20. Если число соответствует этому условию, программа выведет сообщение "Число [число] больше 5 и меньше 20." В противном случае будет выведено сообщение "Число [число] не удовлетворяет условию."