Фирма «Рога и копыта» доставляет рога и копыта клиентам. Если в доме у клиента есть лифт, то доставка бесплатная. Если лифта нет, то подъём товара на каждый этаж выше 3-го стоит 50 рублей. Найдите общую сумму, которую получит фирма за доставку товара.

24 * 32 = 768 символов на 1 странице

768 * 12 = 9216 символов на 1 странице

9216 * 1 = 9216 байт в буклете

9216 * 8 = 73728 бит в буклете

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

(если сумма цифр числа делится на 3, то число делится на 3 нацело)

var a, s: integer;

begin

s: =0;

writeln ('введите число');

while a< > 0 do

begin

a: = a mod 10  

s: =s+a;

end;

if  s mod  3 = 0  then writeln ('делится') else

writeln ('не делится');

end.

восемь бит - как раз 256 ячеек