if (i div 10 = j mod 10) and (i mod 10 = j div 10) then
writeln(i, ' ', j);
end.
Екатерина15
26.08.2022
1)var a, z, s: integer; begin write(' введите число: '); read(z); a : = z; while a > 0 do begin s : = s + a mod 10; a : = a div 10 end; write(' сумма цифр числа ', z, ' = ', s) end.
ur101679
26.08.2022
Планшеты стали модными девайсами, и многие ринулись покупать их, чтобы быть как все. но лишь немногие вопросом: а зачем мне планшет? а между тем, это отличный вопрос. и в данной статье я постараюсь на него ответить.  давайте-ка сначала вспомним, как выглядит планшет, что он из себя вообще представляет. а представляет он собой прямоугольное устройство, большую часть которого занимает сенсорный экран (от 5 до 10 дюймов). логика и практика подсказывают, что на планшете будет удобно: 1. читать. в независимости от диагонали дисплея, на планшете приятно читать электронную . хотя лично мне на 7” как-то удобнее, чем на 10”. особенно когда читаешь не дома, а в дороге. существует множество программ для чтения книг на андроиде (напримерcool reader), и сами книги достать довольно легко, можно даже на этом же сайте, в разделе
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Вывести на экран все двузначные числа перевертыши. через паскаль
//pascalabc.net
begin
for var i : = 10 to 99 do
for var j : = 10 to 99 do
if (i div 10 = j mod 10) and (i mod 10 = j div 10) then
writeln(i, ' ', j);
end.