Вдетском саду 52 ребёнка. каждый из них любит пирожное или мороженое. половина детей любит пирожное, а 20 человек - пирожное и мороженое. сколько детей любит мороженое?
Всего 52 значит если половина любит мороженое то надо 1)52:2=26 детей любят пирожное.2)20 + 26=46 детей 3) 52-46=6 детей любят мороженое. ответ: 6 детей любят мороженое
var simple: List<integer> := new List<integer>; i, n, p: integer; m: longint;
begin read(n); for i := 2 to n do begin m := 1; foreach s: integer in simple do m := m * i mod s; if m > 0 then begin simple.Add(i); // write(i, ' '); end; end; writeln();
foreach s: integer in simple do begin if Math.Pow(2, s) - 1 <= longint.MaxValue then begin m := round(Math.Pow(2, s) - 1); if (m <= n) and simple.Contains(m) then write(m, ' '); end; end; end.
1. var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do read(a[i]); min:=32000;imin:=0; for i:=1 to 10 do if (a[i] mod 2) = 0 then if a[i]<min then begin min:=a[i]; imin:=i; end; write('Минимальное:', min, ' Индекс:', imin); end.
2. function stepen(c, s: integer):integer; var j, rez: integer; begin rez:=c; for j:=1 to (s-1) do rez:=rez*c; stepen:=rez; end; var a: array [1..11] of integer; i, min, imin: integer; begin for i:=1 to 10 do a[i]:=stepen(2, i); for i:=1 to 10 do write(a[i], ' '); end.
Если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.
52/2=26
26+20=46