Составьте программку в Паскале  выводящую значение TRUEFalse 9 Данное четырехзначн. число

Составьте программу в Паскале выводящую значение TRUE\False
9 Данное четырехзначн. число читается одинаково справа влево и слева на право
и 11 Сумма каких-или 2 цифр данного естественного трехзначного числа N равна третьей цифре

Задать свой вопрос
Jana Bizjanina
На каком языке?
Наталья Гордыно
на паскале
1 ответ
9

var n: integer;
begin
     readln(n);
     if (n mod 10 = n div 1000) and (n div 10 mod 10 = n div 100 mod 10) then
        writeln('TRUE')
     else
         writeln('FALSE');
end.
------------------
11

var n, a, b, c: integer;
begin
     readln(n);
     c := n mod 10; Третья цифра
     b := n div 10 mod 10; Вторая цифра
     a := n div 100; Первая цифра
     if (a + b = c) or (a + c = b) or (b + c = a) then
        writeln('TRUE')
     else
         writeln('FALSE');
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

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

Войти на сайт