Составте программу в паскале которая определяет, является ли сумма цифр введеного целого трёхзначного числа чётным числом

1.
Текст вводится после двойного щелчка по ячейке. Можно ввести текст и в строке формул. Перенести ввод текста на другую строку оновременно оставаясь в этой же ячейке можно одновременно нажав две клавиши Alt+Enter. Ячейку можно отформатировать через формат ячейки.
2. В числовом и экспотенциальном. Числовое позволяет определить количество разрядов после запятой, экспотенциальное представляет число в стандартном виде. При вводе в экспотенциальном виде достаточно ввести мантису и после ввода «е» ввести степень числа.
3. Запись формулы в ячейку всегда начинается с знака = . Если этого не сделать, то символы формул воспринимаются как текст.
4. Можно перенести формат образца на необходимое место.
5.
X+Y/Z
(X+Y)/3
(X/(Y+3))·Z·(K/N)·M·Q
X·Y/(Z·K)
X·Y/(Z·K)
X^2-Y^5Q
X+(Y·5)^3+X^3·Y  

Алфавит для составления номера содержит 26+10 = 36 символов.
2⁵ < 36 < 2⁶, поэтому для кодирования каждого символа потребуется 6 бит.
Шестисимвольный номер можно закодировать с помощью 6×6 = 36 бит, но он должен занимать целое количество байт. 36/8=4.5, т.е. потребуется 5 байт. Ну а 60 номеров потребуют 5×60=300 байт.

Ответ: 300

Ответ номер 3 .................

Var n,k:integer;
begin
write('n='); readln(n);
k:=1;
while k<=n do
 begin
 write(k,'  ');
 k:=k*2;
 end;
writeln;
end.

Пример:
n=50
1  2  4  8  16  32