Ответ:
17
Объяснение:
1)s=40,n=2
2) s/n=40/2=20>0—›да
3)s=s-6=40-6=34, n=n+3=2+3=5
4) s/n=34/5=6>0—›да
5)s=s-6=34-6=28, n=n+3=5+3=8
6)s/n=28/8=3>0—›да
7)s=s-6=28-6=22, n=n+3=8+3=11
8)s/n=22/11=2>0—›да
9)s=s-6=22-6=16, n=n+3=11+3=14
10)s/n=16/14=1>0—›да
11)s=s-6=16-6=10, n=n+3=14+3=17
12)s/n=10/17=0>0—›нет
11)вывод(n): 17
Var
i, kor, koz, ov: integer;
begin
for i := 1 to 40 do
begin
koz := i;
kor := 2 * koz;
ov := 40 - (koz + kor);
if ov < 0 then break;
writeln('Овец: ', ov, ' Коров: ', kor, ' Коз: ', koz);
end
end.
<em>// PascalABC.NET 3.3, сборка 1561 от 02.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Положительных элементов- ',a.Where(x->x>0).Count)
end.
<u>Пример</u>
n= 13
3 21 -5 46 16 -24 -13 1 -15 41 0 25 48
Положительных элементов- 8
Ввод: x ^ y ^ m ^ n С/П.
Вывод: W или ошибка, если знаменатель равен 0.
П3 -> П2 -> П1 -> П0 ИП1 6 , 5 * ИП0 ИП1 3 * * + 7 ^ 9 / ИП0 * + ИП1 x^2 x^2 x#0 41 ИП2 x^2 8 ИП3 * - |x| КвКор / 1/x С/П 0 ^ 0 / С/П