На паскаль: даны три числа. удвоить те из них, которве нечетны. осталтые оставить без изменения.

300

500

Посмотреть ответы 3

Ответы на вопрос:

elnerfaiq

Информатика

4,4(9 оценок)

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.

Verozan2103

Информатика

4,4(68 оценок)

Если просят найти среднее арифметическое, то формула (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.