Var
n, sum :integer;
begin
readln(n);
sum:= (n div 10) + (n mod 10);
write(sum,' - ');
if sum mod 2 = 0 then
write('четная')
else
write('нечетная');
end.
Вот для любой подойдет в выделенной области выбираешь стиль с контуром в в изменении фигуры -можешь задать толщину линии.
2 Кбайт = 2*1024 байт = 2048 байт
128 бит = 128/8 байт = 16 байт
2048+16 = 2064
30 см, зависит ещё от диагонали монитора!!!
Суть программы в том, чтобы пройти цикл, в условии которого спрашивается, является ли разность переменных n и s больше нуля. В этом цикле каждый раз происходит увеличение s на 20, а n на 15. Давай пройдем этот цикл:
s = 127, n = 250
n - s = 250 - 127 > 0, проходим цикл
s = 127 + 20 = 147, n = 250 + 15 = 265
Так цикл будет повторяться до тех пор (а это событие произойдёт, поскольку к s прибавляется больше, чем к n, так что переменная s в какой-то момент перегонит n), пока s не станет больше n - тогда разность s и n будет меньше нуля и цикл уже не выполнится. Я так понял, нужно вывести s, при котором цикл уже работать не будет. Здесь ничего не остаётся, кроме как считать. Я этого здесь делать не буду, потому что всё даже не поместится. Я лишь выполнил эту программу. Ответом будет число s = 627. Прошло всего 25 циклов.