Известно, что из четырех чисел a1, a2, a3, a4 одно отлично от трех других, равных между собой. найдите это число. Решить задачу на языке Паскаля.
Ответы
Ответ дал:
7
var a1,a2,a3,a4:real;
begin readln(a1,a2,a3,a4);
if (a1<>a2) and (a1<>a3) then writeln(a1);
if (a2<>a1) and (a2<>a3) then writeln(a2);
if (a3<>a1) and (a3<>a2) then writeln(a3);
if (a4<>a3) and (a4<>a2) then writeln(a4);
end.
begin readln(a1,a2,a3,a4);
if (a1<>a2) and (a1<>a3) then writeln(a1);
if (a2<>a1) and (a2<>a3) then writeln(a2);
if (a3<>a1) and (a3<>a2) then writeln(a3);
if (a4<>a3) and (a4<>a2) then writeln(a4);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад
7 лет назад