Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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

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.