Задать вопрос Регистрация
Помочь другим

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

Ответы 1

  • Program n1;Var c,i: integer; a: array[0..6] of integer;beginWriteln('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');readlnend.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years