Урок 9 Задача 2

Primary tabs

Submitted by Qwerty1234567 on Mon, 01/24/2022 - 15:14

Forums:

Урок 9 Задача 2

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var num1, num2 : integer;
begin
  writeln ('enter the first number');
  readln(num1);
  writeln ('enter the second number');
  readln(num2);
  if (num1>num2) then
     writeln ('12')
  else
      write ('888');
  readln();
end.
  • Log in to post comments
  • 565 reads

Qwerty1234567

Mon, 01/24/2022 - 15:16

Урок 9 Задача 3

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var A, B, C : integer;
bool: boolean;
begin
  writeln ('enter the first number');
  readln(A);
  writeln ('enter the second number');
  readln(B);
  writeln ('enter the third number');
  readln(C);
  if ((A>B) and (A<C)) or ((A<B) and (A>C)) then
        bool := True;
        writeln (bool);
  readln();
end.