Question

Помогите с информатикой, пожалуйста. Это задание для 9 класса. Срочно понадобилось, а я не могу вспомнить как это делается.
Пожалуйста, напишите решение подробно

Answer 1

Решение первого задания:

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.

Answer 2

Спасибо вам большое!!!!!!!!!!!!!!