помогите, пожалуйста, программирование паскаль!!! Ввести число и доказать, что первая цифра числа равна последней.
5-9 класс
|
var
A, B, C, D, E : integer;
begin
readln(A);
B := A;
C := 0;
D := A mod 10;
While B <> 0 do
begin
C := C*10 + B mod 10;
B := B div 10
end;
E := C mod 10;
If E=D then writeln('Первая цифра равна последней')
else writeln('Первая цифра не равна последней')
end.
Другие вопросы из категории
А) Корона
Б) Девиз
В) Герб
Г) Щит
таблицу). Запишите последовательность этих букв, которая кодирует адрес указанного файла в Интернете.
А
info
Читайте также
1) Преобразуйте двоичное число в восьмеричное:1010100
2)Преобразуйте двоичное число в десятичное:100010
3)Преобразуйте двоичное число в шестнадцатеричное:1110001000
4)Преобразуйте восьмеричное число в двоичное:67
5)Преобразуйте восьмеричное число в десятичное:207
6)Преобразуйте восьмеричное число в шестнадцатеричное: 2246
7)Преобразуйте десятичное число в двоичное:404
8)Преобразуйте десятичное число в восьмеричное:283
9)Преобразуйте десятичное число в шестнадцатеричное:1001
10)Преобразуйте шестнадцатеричное число в двоичное:5D
11)Преобразуйте шестнадцатеричное число в восьмеричное:4C
12)Преобразуйте шестнадцатеричное число в десятичное: 35B
Задано четырехзначное число. Проверить, что в заданном числе произведение 2-х первых цифр равно произведению двух последних цифр.
телефон) и пароль .я ввожу, нажимаю войти, потом появляется картинка и говорят "Введите код с картинки" (эту функцию я отключила несколько лет назад!!! ) ,ну я думаю, хорошо, я введу, подумаешь три буковки. ВОТ! После этого проблема. мне пишут " Лена, мы зафиксировали попытку взлома Вашей страницы. Не беспокойтесь, она в безопасности. Чтобы обезопасить Вашу страницу от злоумышленников и в будущем, мы просим Вас подтвердить привязку к телефону и придумать новый сложный пароль. " Ладно я ввожу свой номер телефона, чтоб мне пришел код активации. Раньше мне приходило вот это"Для активации услуги подтвердите Ваше согласие с правилами, Ответь ДА стоимость отправки смс на номер 4012 - 203.19"!!! А сейчас уже если я наберу номер ничего абсолютно не происходит. Ага! Еще чего, не буду я на них целых 200 рублей тратить! Помогите пожалуйста мне решить эту проблему
И еще кое что, когда мой брат или подруга тоже попытались зайти в ВК у них всеё было тоже самое
С телефона пароль меняла, но ничего не изменилось
НА Q BASIC.
СРОЧНООООО ПОМОГИТЕ ПОЖАЛУЙСТА(((((