1) Известны длины сторон треугольника a, b, c. Напишите программу, вычисляющую площадь этого треугольника. 2) Если сумма налога исчисляется в рублях и копейках, то налоговая служба округляет ее до ближайшего рубля (до 50 копеек - с недостатком, свыше 50 копеек (включая 50) - с избытком). Используйте компьютер, чтобы ввести точную сумму налога и вывести, сколько следует уплатить.

1) program zz1;

var a, b, c, S, p, d:real; / /задаем переменные не целого типа

begin

write ('введите первую сторону треугольника ');

read (a);

write ('введите вторую сторону треугольника ');

read (b);

write ('введите третью сторону треугольника ');

read (c);

d: = (a+b+c) / 2; / /находим полу периметр треугольника

if (a+b>c) or (a+c>b) or (c+b>a) / /проверяем на существование треугольника, если существует, то вычисляем площадь

then begin s:=sqrt (d * (d-a) * (d-b) * (d-c)); write ('площадь треугольника = ', s:5:2); end

else write ('треугольник не существует ');

end.

2) program zz1;

var a, b:integer; / / вводим переменные целого типа

begin

write (' введите сумму налога в рублях '); / / вводим с клавиатуры число a

read (a);

write (' введите сумму налога в копейках '); / / вводим с клавиатуры число b

read (b);

if b > = 50 / / проверяем условие

then a:=a + 1;

write (' необходимо заплатить = ', a, ' рублей'); / / выводим ответ

end.