Решение первого задания:
var
a, aa, c: integer;
begin
writeln('Введите число, которое необходимо перевернуть.');
readln(a);
write('Перевёрнутое число выглядит так: ');
while (a <> 0) do
begin
aa := a mod 10;
write(aa);
a := a div 10;
end;
end.
Решение третьего задания:
var
a, b, c, p, pp, s: real;
begin
writeln('Введите значения длин сторон треугольника через пробел:');
readln(a, b, c);
p := a + b + c;
pp := p / 2;
s := pp * (pp - a) * (pp - b) * (pp - c);
s := sqrt(s);
writeln('Периметр треугольника равен ', p, ', его площадь равна ', s);
end.
Решение четвёртого задания:
var
a, aa, c, sum, p: integer;
begin
sum := 0;
p := 1;
writeln('Введите число.');
readln(a);
while (a <> 0) do
begin
aa := a mod 10;
sum := aa + sum;
p := aa * p;
a := a div 10;
end;
writeln('Сумма цифр этого числа: ', sum, ', а произведение цифр этого числа: ', p);
end.