Составьте программу в Паскале выводящую значение TRUE\False
5-9 класс
|
№9 Данное четырехзначн. число читается одинаково справа налево и слева на право
и №11 Сумма каких-либо 2 цифр заданного натурального трехзначного числа N равна третьей цифре
№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.
Другие вопросы из категории
Срочно нужно
Необъективной,Полной, Неполной,Полезной,Бесполезной.Понятной, Непонятной.Помогите пожалуйста.
треугольника равна' р', длина одной стороны равна 'а', другой на 5 больше.Найти длину третей стороны
Помогите пожалуйста!:( Не получается решить
Читайте также
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
Агент 007 узнал, что в секретном сейфе трёхзначный код, в котором все три цифры разные.При этом средняя цифра равна разности крайних цифр. Составить программу, которая напечатает для него все такие числа.
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.