Когда в школе объявили день вежливости, каждый мальчик из 5а класса поздоровался за руку с каждой девочкой из своего класса. всего при этом было 77 . сколько учеников в 5а классе. решение напишите .
Допустим, было 7 мальчиков и 11 девочек. Один мальчик сделает 11 рукопожатий, по одному на девочку, и таких мальчиков 7, => 7*11 = 77 рукопожатий, => 11+7 = 18 человек. (Или, наоборот, 11 мальчиков и 7 девочек).
// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 function BinToOct(s:string):string; // переводит двоичную триаду в восьмеричную цифру begin case s of '000':Result:='0'; '001':Result:='1'; '010':Result:='2'; '011':Result:='3'; '100':Result:='4'; '101':Result:='5'; '110':Result:='6'; '111':Result:='7'; end end;
begin var s2:=ReadlnString('Введите целое двочное число'); var k:=s2.Length mod 3; if k<>0 then s2:=(3-k)*'0'+s2; // дополнить до кратной 3 длины var s8:=''; for var i:=1 to s2.Length div 3 do s8:=s8+BinToOct(Copy(s2,3*i-2,3)); Writeln(s8); end.
Пример Введите целое двочное число 10101100001 2541
пока i<=50 делай нц если a[i]>max то нц max:=a[i]; n_max:=i; кц если a[i]<min то нц min:=a[i]; n_min:=i; кц если (i mod 2)==0 то sum:=sum+a[i]; k:=k+1; кц
srednee_znachenie:=sum/k;
//
var a:array(10..50) of integer; max,min,n_min,n_max,k,i,sum:integer; sr:float;
begin max:=a[1]; min:=a[1];
for i:=10 to 50 do begin if a[i]>max then begin max:=a[i]; n_max:=i; end; if a[i]<min then begin min:=a[i] n_min:=i; end; if ((i mod 2)=0) then begin k:=k+1; sum:=a[i]+sum; end; end; end;
Один мальчик сделает 11 рукопожатий, по одному на девочку, и таких мальчиков 7, => 7*11 = 77 рукопожатий, => 11+7 = 18 человек.
(Или, наоборот, 11 мальчиков и 7 девочек).
Решение взято