Предмет: Информатика,
автор: volgogad
Помогите написать в паскале!
Ввести три целых числа
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.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Биология,
автор: ksuepopshoi
Предмет: Информатика,
автор: bekturganbaqyt
Предмет: Физика,
автор: gumenmarko16
Предмет: Алгебра,
автор: Аноним