напишите программку на паскале. ИНФОРМАТИКА 8 КЛАСС БОСОВА ФГОС. Номер 6

Напишите программку на паскале. ИНФОРМАТИКА 8 КЛАСС БОСОВА ФГОС. Номер 6 б)
даю 60 баллов.

Задать свой вопрос
1 ответ
Var
   A,B,C:longint;
Begin
Write('Введите целое число: ');ReadLn(A);
A:=Абс(A);
B:=A;
C:=0;
While Bgt;0 do
   Begin
   C:=C*10+B mod 10;
   B:=B div 10
   End;
if A = C then WriteLn('Перевёртыш')
else WriteLn('Нет')
End.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт