Работа 3.3 Упр.12 Задание 1 ГДЗ Семакин 10 класс (Информатика)
Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 12. Известно, что из четырех чисел a1, а2, а3 и а4 одно отлично от трех других, равных между собой; присвоить номер этого числа переменной n.
Нужно определить, какое из четырёх чисел $$a_1, a_2, a_3, a_4$$ отличается от остальных трёх одинаковых. Для этого последовательно проверим каждое число: если оно не равно ни одному из трёх остальных, значит именно оно и является отличающимся.
var a1, a2, a3, a4: integer;
n: integer;
begin
writeln(‘Введите 4-е числа (три из них должны быть одинаковыми)’);
readln(a1, a2, a3, a4);
if (a1 <> a2) and (a1 <> a3) and (a1 <> a4) then n := 1;
if (a2 <> a1) and (a2 <> a3) and (a2 <> a4) then n := 2;
if (a3 <> a1) and (a3 <> a2) and (a3 <> a4) then n := 3;
if (a4 <> a1) and (a4 <> a2) and (a4 <> a3) then n := 4;
writeln(n, ‘ число отличное от других’);
end.
В переменную n записывается номер числа, которое отличается от остальных трёх равных между собой.
Ответ: программа определяет номер отличающегося числа и выводит его в переменной n.