3 раза налить воду в трехлитровый и выливать каждый раз в восьмилитровый. В третий раз вся вода не влезет, в трехлитровом останется 1 литр. Затем опустошить восьмилитровый, вылить туда один литр из трехлитрового. Затем еще два раза принести по 3 литра из маленького кувшина. Профит.
Там должна быть кнопка *NewTopic*
Var x: integer;
begin
writeln ('Введите температуру воздуха');
readln (x);
if x<0 then writeln ('Дождь')
else writeln ('Снег");
end.
Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
3072/1536 и ответ это мощность использованного алфавита