Задача на Паскаль: Даны три числа. удвоить те из них, которве нечетны. осталтые оставить без изменения.
Задача на Паскаль: Даны три числа. удвоить те из них, которве нечетны. осталтые оставить без изменения.
Гость
Ответ(ы) на вопрос:
ГостьЕсли просят найти среднее арифметическое, то формула (a+b+c)/3.
Если не наибольшее и не наименьшее из трёх, то
if ((a < b) and (b < c)) or ((a > b) and (b > c)) then b
else if ((b < c) and (c < a)) or ((b > c) and (c > a)) then c
else a;
Предполагается, что a <> b <> c.
Гостьvar
i: integer;
m: array [1..3] of integer;
begin
writeln('Введите три числа: ');
for i := 1 to 3 do
begin
read(m[i]);
if odd(m[i]) then write('Число нечетно: ', m[i] * 2)
else write('Число четно: ', m[i]);
writeln;
end;
end.
Не нашли ответ?
Похожие вопросы