назовем билет с шестизначным номером прекрасным, если его номер идиентично читается

Назовем билет с шестизначным номером прекрасным, если его номер идиентично читается с право на лева и с лева на право в промежутке 189980 до 205505

Задать свой вопрос
1 ответ
Program zadacha;var a,a1,a2,a3,a4,a5,a6:integer;beginreadln (a);if (alt;189980) or (agt;205505)then writeln ('Введите число не меньше 189980 и не превышающее 205505');a1:=a mod 10;a2:=a mod 100 div 10;a3:=a mod 1000 div 100;a4:=a mod 10000 div 1000;a5:=a mod 100000 div 10000;a6:=a div 100000;if (a1=a6) and (a2=a5) and (a3=a4)then writeln ('Счастливое')else writeln ('Несчастивое');end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт