Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.
Ответ дал: Гость
ответ надо продемонстрировать рисунком, я не умею на компьютере, поэтому рисую такую схему,как разместить зайцев в прямоугольной клетке.
з -это заяц,их должно быть 5:
три зайца по углам и два у стенок по одному.
з з это для малышей,ее каждый ребенок знает.
з
з з
Ответ дал: Гость
для кодирования 64 цветов нужно 6 бит (2^6 = 64). для 600х450 пикселей потребуется n = 600*450*6 = 1620000 бит.
если предположить некомпактный формат хранения, при котором вышеуказанные 6 бит содержатся в одном байте (а 2 бита этого байта не используются), то для хранения n бит потребуется n/6 = 600*450 = 270000 байт = 270000/1024 кбайт = 263.6719 = 264 кбайта (примерно).
если же предположить чуть более компактный формат хранения, при котором 24 бита размещают в 3-х байтах, то для хранения n бит потребуется (n/24)*3 = 202500 байт = 202500/1024 кбайт = 197.7539 = 198 кбайт (примерно). в этом случае количество кбайт будет немного меньше, чем в первом.
Ответ дал: Гость
var digits: set of '0'..'9'; st: string; i,s,t,t1: integer; begin read(st) for i : = 1 to length(st) do begin if not (st[i] in digits) then begin s: =s+t; t: =0; end else begin t1: =integer(st[i]); t: =t*10+t1; end; end; writeln('s=',s)end.
на руби куда легчеst=gets.to_sst=st.gsub(/\d+/,',')a=(st.split(","))s=0a.each_index do |i| a[i]=a[i].to_i s+=a[i]endp ap s
Популярные вопросы