{Дано двузначное число. Определить: а) является ли сумма его цифр двузначным числом; б) больше ли числа а сумма его цифр} var n, s : byte; a:integer; begin writeln('введите двузначное число'); readln(n); {определение суммы цифр числа div - целая часть от деления, mod - остаток от деления} s:=n div 10 + n mod 10; writeln('сумма цмфр числ', n:5, 'равна',s:5); if s>9 then writeln('сумма цифр двузначное число', s) else writeln('сумма цифр не двузначное число', s);
writeln('введите число а'); readln(a); if s>a then writeln('сумма цифр', n,' больше ли числа ', a) else writeln('сумма цифр', n,' меньше числа ', a);
Постфиксную запись удобно воспринимать как манипуляции со стеком — аналогом длинной трубки с отверстием внизу. в которую можно класть шары, при этом каждый следующий шар проталкивает дальше предыдущие.
Идём по записи 1) 5 — кладём в стек 5 2) 13 — кладём в стек 13 3) 7 — кладём в стек 7 4) - — вытаскиваем из стека два последних шара (13 и 7) и кладём обратно их разность 13 - 7 = 6 5) * — вытаскиваем из стека два последних шара (5 и 6) и кладём обратно их произведение (5 * 6 = 30). 30 и будет ответом.
Эта запись равносильна такой: 5 * (13 - 7)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку