В алфавит языка Паскаль не входит пункт в) Русские строчные и прописные буквы.
Var a:integer;
begin
readln(a);
while(a<>0) do begin
write(a mod 10);
a:=a div 10;
end;
<span>end.</span>
<span>На первое задание
4) разорви
5) намочи
6) изгрязни
7)высуши
8) положи
9) конец</span>
1) из 8 -> в 3 и 5 (8 - пуст)
2)из 5 --> в 8 (5 - пуст, в 8 -5л)
3) из 3 --> в 5 ( 3 - пуст, в 5 -3л, в 8- 5л)
4) из 8 ---> в 3 (3 -3л, в 8 осталось 2л, в 5 - 3л)
45 секунд - 3/4 минуты, а значит за это время можно передать 4000Кб*(3/4)=3000Кб