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

Primary tabs

Submitted by studentmedic on Wed, 05/11/2022 - 08:59

Forums:

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

Пользователь вводит два числа, найдите из них максимальное. (тут всё просто) 

var
  a, b, c: integer;

begin
  write('Введите число a: ');
  read(a);
  write('Введите число b: ');
  read(b);
  write('Введите число c: ');
  read(c);

  write('Максимальное число: ');

   if (a > b) and (a > c) then
   writeln(a);
   if (b > a) and (b > c) then
   writeln(b);
   if (c > b) and (c > b) then
   writeln(c);

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

vedro-compota

Wed, 05/11/2022 - 18:32

  1. Проверить ситуацию когда все или некоторые числа равны между собой
  2. Не делать лишние проверки, если максимум уже найден

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

studentmedic

Fri, 05/13/2022 - 19:17

Исправил

var
  a, b: integer;

begin
  write('Введите число a: ');
  read(a);
  write('Введите число b: ');
  read(b);

  write('Максимальное число: ');

  if (a >= b) then
    writeln(a)
  else
    writeln(b);

  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 05/18/2022 - 20:08

засчитано

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