Question

Помогите пожалуйста сделать информатику

Answer 1

{Дано трехзначое число.
Найти число полученное при перестановке первой и второй цифры}
var N:integer;
begin
 writeln('введите трехзначное число 99<N<1000 ');
 readln(N);
 {(n mod 10)- третья цифра,  (n div 10) mod 10 - вторая цифра}
 {(n div 100) mod 10 - первая цифра}
 n:= (n mod 10)*100+((n div 10) mod 10)*10+(n div 100) mod 10;
 writeln(N);
end.

{Дано четырехзначое число.
Найти сумму и произведение цифр числа}
var N, p, sum, i:integer;
    C:byte;
begin
 writeln('введите четырехзначное число');
 readln(N);
 p:=1 ; sum:=0;
 for i:=1 to 4 do
 begin
  c:=n mod 10; {последняя цифра числа}
  n:=n div 10; {отбрасываем последнюю цифру числа}
  sum:=sum+c;
  p:=p*c;
 end;
 writeln(sum:8, p:8);
end.