fantscrin1 Program n1;
var a,b,col,sum,pr:integer;
begin
writeln('введите трёхзначное число ');
readln(a);
sum:=0;
pr:=1;
col:=1;
while (a<>0) do begin
  b:=a mod 10;
  sum:=sum+b;
  pr:=pr*b;
  if col=1 then writeln('A: число единиц = ', b);
  if col=2 then writeln('Б: число десятков = ', b);
  col:=col+1;  a:=a div 10;
  end;
writeln('Г: сумма цифр числа = ',sum);
writeln('Д: произведение цифр числа = ',pr);
end.

program n2;
var a,b,c:integer;
begin
writeln('введите трёхзначное число ');
readln(a);
while (a<>0) do begin
b:=a mod 10;
write(b);
a:=a div 10;
end;
end.

program n3;
var sk,sp,so:integer;
begin
sp:=543*130;
sk:=130*130;
so:=sp div sk;
writeln('мы можем отрезать ',so,'x квадратов');
end.

антагонист

Verified answer

Program z1;  Var a,b,c,d,e,t,i,g,h:integer; f:string;Begin  writeln('Введите 3-х значное число - '); read(a);  b:=a;  t:=0;  d:=0;  e:=1;  t:=0;  g:=543*130;  h:=130*130;  for i:=1 to 3 do  begin    a:= a mod 10;    b:=b div 10;    d:=d+a;    e:=e*a;    f:=f+IntToStr(a);    if (a = 1) then t:=t+1;    a:=b;  end;  g:=g div h;  writeln ('Задание 1');  writeln ('Число едениц - ',t);  writeln ('Сумма цифр - ',d);  writeln ('Произведение цифр - ',e);  writeln ('Задание 2');  writeln ('Число наоборот - ',f);  writeln ('Задание 3');  writeln ('Квадратов поместитс - ',g);End.