СРОЧНО!!!!! Написать программу ** Паскале Условие задачи Даны три числа, если они все...

Question

СРОЧНО!!!!! Написать программу на Паскале Условие задачи Даны три числа, если они все четные найти их средне арифметическое, если они все нечетные найти их сумму и произведение.​

Comments

А если, например, одно четно и два нечетных? Ничего не дать вообще?

---

пусть будет ошибку выдавать

---

Как это?

---

пж сделай ток норм прогу))

---

хотя ничего не давай

---

Я пробовал на смартфоне

Answer 1

// PascalABC.NET

begin

 var (a, b, c) := ReadInteger3('Введи три числа:');

 if a.IsOdd and b.IsOdd and c.IsOdd then

   Print(a + b + c, a * b * c)

 else if a.IsEven and b.IsEven and c.IsEven then

   Print((a + b + c) / 3)

end.

Comments

Там, где они стоят в ответе

---

Ошибку выдало Syntax error
Файл:HelloWorld.pas
Третья строка

---

HelloWorld.pas - а это что?

---

И куда Вы это скармливаете?

---

на смартфоне пробовал

---

А что, вы когда хотите собачку покормить, ей предлагаете то, что она ест или все подряд? Для смартфонов нет компиляторов языка PascalABC.NET, который указан в первой строке ответа.

---

ок,спасибо!))

---

Пожалуйста

---

сделайте пожалуйста еще программы

---

https://znanija.com/task/35989313?utm_source=android&utm_medium=share&utm_campaign=question