Ответы и объяснения

2013-12-12T14:34:22+00:00
var
  n: integer;
begin
  writeln('Введите двухзначное число: ');
  read(n);
  if n mod 10 = n div 10 then write(true)
  else write(false);
end.

var 
a, s, x, n: integer;
begin
  writeln('Введите трёхзначное число: ');
  read(n);
  a := 1;
  x := 100;
  while x <> 0 do
  begin
    s := (n div x) mod 10;
    a := a * s; 
    x := trunc(x / 10);
  end;
  writeln('Результат: ',a);
end.

var
  i,sum,n: integer;
begin 
  writeln('Введите n: ');
  read(n);
  for i:=1 to n do sum:=sum+i;
  write(sum);
end.
2013-12-12T14:36:51+00:00
1)
uses crt;
var x:integer;
begin
read(x);
if x DIV 10=x MOD 10 then writeln('Yes')
else writeln('No');
end.
2)
uses crt;
var x:integer;
begin
read(x);
writeln((x MOD 10)*((x MOD 100)DIV 10)*(x DIV 100));
end.
3)
uses crt;
var sum,n,i:integer;
begin
sum:=0;
read(n);
for i:=1 to n do
sum:=sum+i;
writeln(sum);
end.