Аводу брали из одной большой бочки. оказывается, чтобы отмыть самую младшую феечку, нужно воды в 4 раза больше, чем для средней, а для средней в 2 раза больше, чем для старшей, самой аккуратной.

напишите программу, которая по количеству воды в бочке определяет, сколько максимально можно потратить на старшую феечку, чтобы хватило всем, и сколько в бочке останется после мытья всех феечек.

формат ввода:
целое число — объем бочки.

формат вывода:
два целых числа через пробел: максимальное количество воды для старшей феечки и остаток воды в бочке.

при использовании компьютерного алфавита 1 символ = 1 байт, значит

20000 символов = 20000 байт

20000 : 1024 = 19,5 кбайт

19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

чернила были красные и черные. весь текст писался чернилами черного цвета, а начало  каждого нового раздела, т.е. новой мысли выделяли красными чернилами, так появилось выражение "красная строка", которым мы и сейчас обозначаем новую строку в начале абзаца.