Помогите написать в паскале!
10-11 класс
|
Ввести три целых числа
x, y, z. Если хотя бы одно из них четное,
то
первому четному числу присвоить значение произведения этих чисел.
Сообразил только как определить чётное или нечётное число а как дальше не могу понять!
program Lab2;
var x,y,z: integer;
Begin
Writeln ('Введите число');
Readln (x);
if x mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
Writeln ('Введите число');
Readln (y);
if y mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
Writeln ('Введите число');
Readln (z);
if z mod 2 = 0 then
writeln ('Это число чётное')
else //Иначе
writeln ('Число нечётно');
end.
var x, y, z : integer;
Begin
read(x, y, z);
if x mod 2 = 0 then x:= x*y*z
else if y mod 2 = 0 then y:= x*y*z
else if z mod 2 = 0 then z:= x*y*z;
writeln(x:3, y:3, z:3);
End.
Другие вопросы из категории
20 Мб можно передать по сети двумя способами:
Запас рыбы в пруду 1000т ежегодный прирост 12%. План отлова 189т. Наименьший запас рыбы, при котором он становится невосстановимым - 250т.
Отразите количество рыбы в пруду на 20 лет.
Читайте также
x=2
2) "нет решений", если x=0
3) 3x в квадрате минус 5, если X=3,4,5,6.
Задание 2) - Составить алгоритм и программу
Написать программу, которая определяет по последней цифре числа последнюю цифру его квадрата.
Прошу написать полное решение программы,
Спасибо Заранее
Ввести три целых числа x, y, z. Если хотя бы одно из них четное,
то первому четному числу присвоить значение произведения этих чисел.
пятерок: n = k⋅3+m⋅5. Найти для заданного числа n значения k и m.
ЗА РАНИЕ СПАСИБО