Тема: РЈСЂРѕРє в„– 21 РўРёРї даних "integer", Оголошення величини, оператор присвоєння.

Щоб закріпити вивене використаємо загальновідому задачу:

Коли навчальна експедиція Амазонкою закінчувалася, Айбоша на згадку про подорож вирішив зробити спільну фотографію всіх нових друзів, які зібралися разом на великій галявині.

   РЈ перші 5 СЂСЏРґС–РІ встали маленькі мавпочки РїРѕ 4 тварин Сѓ кожному СЂСЏРґС–. Р—Р° РЅРёРјРё стояли 7 СЂСЏРґС–РІ травоїдних та РіСЂРёР·СѓРЅС–РІ, РїРѕ 10 тварин Сѓ кожному СЂСЏРґСѓ. Р—Р° тваринами зручно розмістилися учені та члени екіпажу теплоходу «Р”ельфін». Їх було стільки, скільки мавпочок, травоїдних та РіСЂРёР·СѓРЅС–РІ разом. Р—Р° фотографуванням Р·-Р·Р° дерев спостерігало 11 хижаків, СЏРєС– РЅРµ бажали налякати РґСЂСѓР·С–РІ, тому РІРѕРЅРё РїРѕРєРё що РЅРµ наважувалися вийти С–Р· схованки.
    Скільки РІСЃСЊРѕРіРѕ РЅРѕРІРёС… знайомих зібралося фотографуватися та спостерігати Р·Р° цим процесом РЅР° галявині?

Визначимось зі змінними:
С…, Р° – кількість СЂСЏРґС–РІ РЅР° фотографії;
Сѓ, b, z – кількість тварин Сѓ рядах та хижаків Р·Р° деревами.

zagal - результат, у цій змінній будемо зберігати загальну кількість друзів, що фотографуються та спостерігають за цим на галявині.
   РљСЂС–Рј цих Р·РјС–РЅРЅРёС… величин доцільно ввести такі:
mavpa – проміжна Р·РјС–РЅРЅР°, призначена зберігати кількість мавпочок РЅР° галявині;
trav_griz – проміжна Р·РјС–РЅРЅР°, призначена для збереження загальної кількості травоїдних та РіСЂРёР·СѓРЅС–РІ.

   Для визначення кількості мавпочок, травоїдних та РіСЂРёР·СѓРЅС–РІ потрібно кількість СЂСЏРґС–РІ, СЏРєРёРјРё вишукувалися тварини, помножити РЅР° кількість тварин Сѓ кожному СЂСЏРґС–:

mavpa := x * y; {визначення кількості мавпочок}
trav_griz := a * b; {визначення кількості травоїдних та гризунів}

   Для визначення загальної кількості РґСЂСѓР·С–РІ необхідно додати кількість мавпочок, травоїдних та РіСЂРёР·СѓРЅС–РІ, вчених та членів екіпажу (для визначення цього значення РјРё РїРѕРІРёРЅРЅС– додати попередньо визначені значення кількості мавпочок та травоїдних С– РіСЂРёР·СѓРЅС–РІ), хижаків та 1 (щоб РЅРµ забути додати РґРѕ загальної кількості РґСЂСѓР·С–РІ самого Айбошу):

zagal:= mavpa+trav_griz+(mavpa+trav_griz)+z+1;

Program  foto;
    Var С…, Р°, Сѓ, b, z, mavpa, trav_griz, zagal: byte ;
Begin      
     x:= 5;
     y:=  4;
     mavpa := x * y; {кількість мавпочок}
     a:=7;   
      b:=10;   
     trav_griz := a * b;                    {кількість травоїдних та РіСЂРёР·СѓРЅС–РІ}
     z:=11;
     zagal:= mavpa+trav_griz+(mavpa+trav_griz)+z+1;                {загальна кількість}
    Writeln(zagal) {виведення отриманого результату}
End.