Задача 1.
Петр может бегать в три раза быстрее, чем ходить. Скорость ходьбы равна 4 км в час. Он принял участие в марафонском забеге, но сошел с дистанции, пробежав только x км. Сколько времени Петр затратил на преодоление этого расстояния?

1. program M;
2.   const v=4; k=3;
3.   var x,t,v1: real;
4. begin
5.   write(’Какое расстояние пробежал мальчик?’);
6.   readln(x);
7.   v1:=v*k;
8.   t:=x/v1;
9.   writeln(’Мальчик бежал’,t,’часа’)
10.end.

Задача 2.
Мальчик, продающий на улице газеты, зарабатывает A рублей на продаже каждой из первых 75 газет. На каждой из остальных проданных газет он зарабатывает по X рублей. Напишите программу, которая выведет заработок мальчика, если он продаст 133 газеты.

1. program G;
2.   const K=133; K1=75;
3.   var A,X,S: real;
4. begin
5.   write(’Какую сумму зарабатывает мальчик на продаже каждой из первых газет?’);
6.   readln(A);
7.   write(’Какую сумму зарабатывает мальчик на продаже остальных газет?’);
8.   readln(X);
9.   S:=A*K1+X*(K-K1);
10.  writeln(’Мальчик заработал’,S,’рублей’)
11.end.

Задача 3.
Ежедневно молочная ферма надаивает 1842 литра молока. Найдите количество молока, полученного за любой месяц (вводится число дней в месяце).

1. program milk;
2.   const l=1842;
3.   var M: real;
4.       D: integer;
5. begin
6.   write(’Сколько дней в месяце?’);
7.   readln(D);
8.   M:=l*D;
9.   writeln(’Ферма надаивает за месяц’,M,’литров’)
10.end.

Проверьте себя.
Составьте алгоритм и программу нахождения площади треугольника по его основанию и высоте.

1. program PL;
2.   var a,h,s: real;
3. begin
4.   write(’Введи основание треугольника в см: ’);
5.   readln(a);
6.   write(’Введи высоту треугольника в см: ’);
7.   readln(h);
8.   s:=a*h/2.0;
9.   writeln(’Площадь треугольника равна ’,s,’ кв.см’)
10.end.