Дано семизначное число. Определить, является ли оно симметричным.

1

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

2012-10-19T03:21:50+00:00

Program n1;
Var c,i: integer;
a: array[0..6] of integer;
begin
Writeln('Vvedite chislo');
Readln(c);
For i:=6 downto 0 do
begin
a[i]:=c mod 10;
c:=c div 10;
write(a[i]:3);
end;
If(a[0]=a[6])and(a[1]=a[5])and(a[2]=a[4]) then writeln('Simmetrichnoe')
else writeln('Nesimmetrichnoe');
readln
end.