Подсчитать произведение всех четных чисел от 1 до n (паскаль)

i=1,5 кбайта=1,5 * 1024 байта = 1,5 * 1024 *8 бит = 12288 битi=i/k=12288/3072 = 4 бита - на один символ

значит n=2^4 = 16 символов в алфавите.

ответ: 16 символов

program naoborot;

uses crt;

var n,a,b: integer;

begin

clrscr;

write('введите натуральное число: ');

readln(x);

n: =x;

while n> =1 do

begin

a: =n mod 10;

n: =n div 10;

b: =b*10+a;

end;

write('прочтение цифр числа справа налево: ',b)

end.

наливаем в 5 литров в "5". переливаем его в "9". наливаем еще полное "5" и снова переливаем его в "9". в "5" остается 4л. переливаем сюда литр из "9" (итог: "9"=8, "5"=5) из "5" выливаем  все. переливаем сюда из "9".

итог: в "9" ровно 3 л.

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.