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

Primary tabs

Submitted by Anton on Thu, 07/22/2021 - 18:17

Forums:

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

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

program Project1;

var
  a, b, c: integer;

begin
  a:= 1;
  b:= 2;
  c:= 3;
  if ((a > b) and (a < c)) then
   writeln('Da')
   else
       if ((a < b) and (a > c)) then
     writeln('Da')
     else
       writeln('Net');

       readln();
end.
  • Log in to post comments
  • 1344 reads
vedro-compota's picture

vedro-compota

Sun, 07/25/2021 - 12:25

1) исправить форматирование
2) Проверки 

((a > b) and (a < c))

и

       if ((a < b) and (a > c))

можно в объединить в одно выражение

_____________
матфак вгу и остальная классика =)

Anton

Sun, 07/25/2021 - 17:24 

program project1;

var
  a, b, c: integer;

begin
  a:= 2;
  b:= 1;
  c:= 3;
  if (((a > b) and (a < c)) or ((a < b) and (a > c))) then
     writeln('Da')
  else
     writeln('Net');

  readln();
end.