Всё что нам нужно это просто поделить количество яблок на количество школьников т.е. k/n - тогда мы получим результат, решение прикрепил скриншотом.
1. Истина(true)
2. Истина(true)
3. Ложь(false)
4. Ложь(false)
5. Ложь(false)
6. Истина(true)
7. Истина(true)
8. Истина(true)
-х = -0,8
(изменение знаков обеих частей)
4/5
-х = -4 1/3
-х= 4/3 = 1/13
-х= -7,2
-х= 36/5 = 7 1/5
-х=5/6-1/9
-х = -17/18
-х=3/8+1/6
-х = 5/24
Var i,k:integer;
begin
for i:=1000 to 9999 do
if i mod 3=0 then begin
writeln(i);
inc(k);
end;
write('Кол-во таких чисел равно ',k);
<span>end.</span>
Const nx = 50;
Var A:array[1..nx]of integer; i,m,s,k:integer;
Begin
WriteLn('Введи количество элементов массива'); Read(m);
For i:= 1 to m do begin
A[i]:= random(50)-5;
if A[i]> 12 then begin
s:= s + A[i];k:= k + 1;
write(A[i]:3);end;end;
writeln;
write('s = ',s:3,'k = ', k);
<span>end.</span>