Задача на Паскаль:

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

Question

Информатика

Фленка

16 декабря, 14:23

Задача на Паскаль:

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

+1

Ответы (2)

Знаете ответ на вопрос?

Келестина · Answer 1

Если просят найти среднее арифметическое, то формула (a+b+c) / 3.

Если не наибольшее и не наименьшее из трёх, то

if ((a c)) then b

else if ((b a)) then c

else a;

Предполагается, что a b c.

Витюля · Answer 2

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.

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

Задача на Паскаль:

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