Задача на Паскаль: Даны три числа. удвоить те из них, которве нечетны. осталтые оставить без изменения.
5-9 класс
|
Если просят найти среднее арифметическое, то формула (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.
Другие вопросы из категории
способом
Четверо друзей — Алик, Володя, Миша и Юра —
собрались в доме у Миши. Мальчики оживленно беседовали о том, как они провели
лето.
Читайте также
сел - отрицательное, то найти Iа+ b+cI иначе а+b+c +d в корне.
Даны три числа. Если произведение данных чисел - отрицательное, то каждое число возвести в квадрат, иначе найти модуль каждого числа
ПОМОГИТЕ ОЧЕНЬ ПРОШУ
Нужно сформировать новый массив по следующему правилу:
все чётные элементы разделить на 2, все нечётные оставить без изменения
прежним,если это не так. 2)Даны 3 числа, возвести в квадрат те из них, значения которых не отрицательны, а отрицательные оставить без изменений