Составьте программу в паскале выводящую значение true\false №9 данное четырехзначн. число читается одинаково справа налево и слева на право и №11 сумма каких-либо 2 цифр заданного натурального трехзначного числа n равна третьей цифре

анна2250 анна2250    3   14.06.2019 10:40    0

Ответы
Vlada434 Vlada434  12.07.2020 01:23
№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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика