Задача 1. Составим программу, вычисляющую площадь треугольника по формуле Герона.

a, b, c – стороны (исходные данные)

P – полупериметр (вспомогательная переменная)

S – площадь (результат)

Формулы:

P=1/2*(a+b+c)

Program treug;

var a, b, c : integer;

            P, S: real

begin

writeln (‘введите стороны треугольника’);

readln (a, b, c);

P=1/2*(a+b+c);

S:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln (‘площадь равна’, S:6:2);

end.

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

Например, число 12,5 должно быть преобразовано к виду: 12 руб. 50 коп.

a – исходные данные

x, y – результаты

trunc(12,5)=12

frac(12,5)=0,5

0,5*100=50,0

trunc(50,0)=50

Program rub;

var a: real;

            x, y: integer;

begin

writeln (‘введите дробное число’);

readln (a);

x:=trunc(a);

y:=trunc(frac(a)*100);

writeln (‘Ответ: ’, x,’ руб. ’, y,’ коп. ’);

end.

Задача 3. Составить программу, вычисляющую сумму цифр трехзначного числа n.

n – трехзначное число (например 762) – исходные данные

a, b, c – цифры этого числа (вспомогательные переменные)

S – сумма цифр этого числа (результат)

Program chislo;

var n, a, b, c, s : integer;

begin

writeln (‘введите трехзначное число’);

readln (n);

c:=n mod 10;

a:=n div 100;

b:=(n div 10) mod 10;

s:=a+b+c;

writeln (‘сумма цифр числа равна ’, s);

end.