Вывести сумму чисел x+y+z,определить четная ли она, если четная,то найти значение...

Question

Вывести сумму чисел x+y+z,определить четная ли она, если четная,то найти значение произведения x*y*z

Answer 1

Готово...............................

Comments

там чет в скоках не че не понятно

---

((x+y+z) mod 2 =0) это?

---

var x,y,z: integer;
begin
writeln ('Ââåäèòå ÷èñëà x,y,z ');
readln (x,y,z);
writeln ('Ñóììà ðàâíà ',x+y+z);
if ((x+y+z) mod 2 =0) then
writeln ('Ñóììà ÷åòíàÿ,ïðîèçâåäåíèå ðàâíî ',x*y*z)
else
writeln ('Ñóììà íå÷åòíàÿ');
end.

---

Русская раскалдка у вас не читается

---

Могу заменить на транслит.Нужно?

---

Добавил

---

Англ транслит

---

program lab2;
var
x,y,z,s,p:integer;
begin
writeln('x=');
readln(x);
writeln('y=');
readln(y);
writeln('z=');
readln(z);
s:=x+y+z;
writeln('S=',s);
begin
if (S mod 2=0) then p:=x*y*z;
end;
writeln('p=',p);
end.

---

Программа верная.