Программирование 2 группа

Задача №1

Составить программу для вычисления среднего арифметического значения трех оценок x, y, z, которые получил ученик по информатике. Красиво оформить вывод результата работы программы.

Задача №2

Составить программу вычисления стоимости покупки трех разных тетрадей и трех одинаковых обложек к ним. Красиво оформить вывод результата работы программы.

Задача №3

Составить программу вычисления общей стоимости разговоров.

Телефонные разговоры с тремя населенными пунктами стоят с1, с2, с3 коп./мин. Разговоры длились t1, t2, t3 минут.

{ вычисление общей стоимости разговоров}

uses crt;

var с1, с2, с3, t1, t2, t3, s: integer;

begin

clrscr;

write(‘введите значение c1=  ’);

readln (c1);

write(‘введите значение c2=  ’);

readln (c2);

write(‘введите значение c3=  ’);

readln (c3);

write(‘введите значение t1=  ’);

readln (t1);

write(‘введите значение t2=  ’);

readln (t2);

write(‘введите значение t3=  ’);

readln (t3);

s:=c1*t1+c2*t2+c3*t3;

write(‘Общая стоимости разговоров =   ’ ,s);

end.