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

// 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.

Алгоритм

Тіл

Бақылау

Өңдеу

Алгоритм, алгорифм (ағылш.: algorіthm, algorіsmus — Әл-Хорезмидің атынан шыққан) — бастапқы берілген мәліметтермен бір мәнде анықталатын нәтиже алу үшін қай амалды (жұмысты) қандай ретпен орындау қажеттігін белгілейтін есептерді (мәселелерді) шешу (математикалық есеп-қисаптар орындау, техникалық объектілерді жобалау, ғылыми-зерттеу жұмысын жүргізу т.б.) тәсілдерінің дәл сипаттамасы. Алгоритм — математика мен кибернетиканың негізгі ұғымдарының бірі. Алгоритмді орындау алгоритмдік үрдіс деп аталады.

uses GraphABC;

var

 p:array[0..7]of Point;

begin

 p[0].x := 100; p[0].y := 50;

 p[1].x := 200; p[1].y := 150;

 p[2].x := 200; p[2].y := 200;

 p[3].x := 100; p[3].y := 400;

 p[4].x := 150; p[4].y := 200;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2],p[3],p[4]); // хвост

 p[0].x := 200; p[0].y := 150;

 p[1].x := 200; p[1].y := 200;

 p[2].x := 300; p[2].y := 250;

 p[3].x := 500; p[3].y := 250;

 p[4].x := 550; p[4].y := 200;

 p[5].x := 550; p[5].y := 150;

 p[6].x := 500; p[6].y := 100;

 p[7].x := 300; p[7].y := 100;

 SetBrushColor(rgb(200,200,200));

 Polygon(p[0],p[1],p[2],p[3],p[4],p[5],p[6],p[7]); // тело

 p[0].x := 300; p[0].y := 100;

 p[1].x := 350; p[1].y := 50;

 p[2].x := 500; p[2].y := 100;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2]); // верхний плавник

 p[0].x := 300; p[0].y := 250;

 p[1].x := 350; p[1].y := 300;

 p[2].x := 500; p[2].y := 250;

 SetBrushColor(rgb(100,100,100));

 Polygon(p[0],p[1],p[2]); // нижний плавник

 SetBrushColor(rgb(0,0,0));

 rectangle(550,150,560,200); // рот

 SetBrushColor(rgb(70,70,70));

 circle(500,150,10); // внешний круг глаза

 SetBrushColor(rgb(0,0,0));

 circle(500,150,5); // внутренний круг глаза

end.