Pascal

Задача 1. Написати програму, яка б підносила введене число до квадрату.

Program z1;

var a,b:integer;

begin

writeln ('vvedit chyslo');

readln (a);

b:=a*a;

writeln ('b= ', b);

readln;

End.

Задача 2.Дано два дійсних числа a та b. Обчислити їх суму, різницю, добуток.

Необхідні змінні:

a, b - задані числа;

Add - сума чисел;

Sub - різниця чисел;

Multy - добуток чисел.

Програма має наступний вигляд:

    Program Task_50;

    Uses crt;

    Var a, b, Add, Sub, Multy : real;

    Begin

    Clrscr;

    Write(‘Введіть два числа  ’);

    Readln(a,b);

    Add := a + b;

    Sub := a – b;

    Multy := a*b;

    Writeln(‘Результати обчислень:’);

    Writeln(‘Сума = ‘, Add :8:2);

    Writeln(‘Різниця = ’, Sub :8:2);

    Writeln(‘Добуток = ’, Multy :8:2);

    Readln;       {Процедура затримки зображення на екрані до натискання будь-якої клавіші}

    End.

Задача 3.

Скласти програму, яка визначає пору року за порядковим но­мером місяця.

Program PORA;

Var MONTH: integer;

begin

Write('Введіть порядковий номер місяця (від 1 до 12): ');

readln(MONTH);

case MONTH of

                           3,4,5:writeln('Becнa');

6,7,8 : writeln ('Літо');

9,10,11:writeln('Ociнь');

         12,1,2:writeln('Зимa')

end;

           end.