Question

ПАСКАЛЬ 1.составить программу которая проверяет четное ли это число 2.составить программу которая уравнивает два числа a и b 3.составить программу которая проверяет трехзначное ли это число

Answer 1

1)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if(num mod 2 = 0) then  

   write('Число четное')

 else  

   write('Число нечетное');

end.

2)

var

 a, b, i: integer;

begin

 writeln('Введите a');

 read(a);

 writeln('Введите b');

 read(b);

 if (a > b) then

   swap(a, b);

 for i := 0 to  

 b - a - 1 do

   a := a + 1;

end.

3)

var

 num: integer;

begin

 writeln('Введите число');

 read(num);

 if (num div 1000 = 0) and (num div 100 <> 0) then  

   write('Число трехзначное')

 else  

   write('Число не трехзначное');

end.

Answer 2

Вот примеры программ на языке Pascal для выполнения каждой из указанных задач:

1. Проверка на четность числа:

pascalCopy code
program CheckEven;
var
  num: integer;
begin
  write('Введите число: ');
  readln(num);
  
  if num mod 2 = 0 then
    writeln('Число четное.')
  else
    writeln('Число нечетное.');
end.

2. Уравнивание двух чисел a и b:

pascalCopy code
program EqualizeNumbers;
var
  a, b: integer;
begin
  write('Введите число a: ');
  readln(a);
  write('Введите число b: ');
  readln(b);
  
  if a = b then
    writeln('Числа a и b равны.')
  else
  begin
    writeln('Числа a и b различны. Уравниваем их.');
    a := b;
    writeln('Теперь a = ', a);
  end;
end.

3. Проверка на трехзначность числа:

pascalCopy code
program CheckThreeDigitNumber;
var
  num: integer;
begin
  write('Введите число: ');
  readln(num);
  
  if (num >= 100) and (num <= 999) then
    writeln('Это трехзначное число.')
  else
    writeln('Это не трехзначное число.');
end.

Вы можете скопировать и вставить каждую из этих программ в среду разработки Pascal (например, Lazarus) и выполнить их для проверки.