Решаем задачи Абрамян на Паскале. If18

If18. Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

Решение:

program if17;
var
  A, B, C: Real;
begin
  Write('Введите первое число: ');
  Readln (A);

  Write('Введите второе число: ');
  Readln (B);

  Write('Введите третье число: ');
  Readln (C);

  if B=C then Writeln('1');
  if A=C then Writeln('2');
  if A=B then Writeln('3');
end.

program if17;

var

A, B, C: Real;

begin

Write('Введите первое число: ');

Readln (A);

Write('Введите второе число: ');

Readln (B);

Write('Введите третье число: ');

Readln (C);

if B=C then Writeln('1');

if A=C then Writeln('2');

if A=B then Writeln('3');

end.

Другие задачи из раздела If можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. If18

Комментарии:

Добавить комментарий Отменить ответ