Некая студентка решила поучаствовать в кастинге конкурса «мисс очарование». для этого она решила сесть на специальную диету. начальный ее вес составляет n0 кг. через неделю ее вес стал равен n1 кг, а еще через неделюn2 кг. определить по сколько % веса каждую неделю теряла студента, сидя на диете.нужно написать прогу в pascal abc/

вот собственно программка, все, что нужно, прокомментированно, писалось на turbo pascal, от pascal abc данная версия не значительно отличается.

program tolstushka; usescrt; varn0, n1, n2, x1, x2, x3: byte; beginclrscr; textcolor(white); textbackground(black); readln(n0, n1, n2); x1 : = (n1 * 100) div n0; {потеряла веса (в процентах) от первоначального в первую неделю}x2 : = (n2 * 100) div n0; {потеряла веса (в процентах) от первоначального во вторую неделю}x3 : = (n2 * 100) div n1; {потеряла веса (в процентах) от веса, потерянного в первую неделю}writeln; writeln('первая неделя : ' + ' ', x1 , 'вторая неделя' + ' ', x2, 'вторая неделя в сравнении с первой' + ' ', x3); readkey; end.

Найдем количество бит на символ при формулы: n = 2^i, где: n - алфавит. i - количество бит на символ. 26 = 2^i. i = 5 бит (не можем взять 4 бита, так как 16 < 24, не хватит). найдем объем пароля: v = k * i, где: v - объем. k - размер пароля. v = 10 * 5 = 50 бит. так как ответ нужно дать в байтах, переведем биты в байты: 50/8 = 7 байт (6 байт взять не можем, так как 48 < 50). найдем сколько всего памяти отводится на одного человека: 500 / 10 = 50 байт. из этих 50 байт, 7 байт отводится на пароль. значит на дополнительные сведения: 50 - 7 = 43 байта. ответ: 43 байта.

//pascalabc.net //версия 3.3, сборка 1634 (14.02.2018) function maxcnt(self: sequence of integer): integer; extensionmethod; begin   var (max,k): =(integer.minvalue,1);   foreach var v in self do     if v> max then (max,k): =(v,1)     else if v=max then k+=1;   result: =k     end; begin   readseqintegerwhile(t-> t< > 0).maxcnt.println; end. пример: 12 15 61 8 7 8 20 20 5 51 54 61 30 61 0 78 94 94 94 94 94 3