Партнерка на США и Канаду по недвижимости, выплаты в крипто

  • 30% recurring commission
  • Выплаты в USDT
  • Вывод каждую неделю
  • Комиссия до 5 лет за каждого referral

Ответы

Вариант 1

№ задания

Ответ

№ задания

Ответ

№ задания

Ответ

1

1

7

ЛШ

13

2

2

3

8

40

14

11212

3

4

9

99

15

120

4

4

10

9

16

ЛХОПОБ

5

3

11

13

17

ЕВГАЖДБ

6

2

12

8

18

АГВБ

№ 20.2

var

s, k, a: integer; sr: real;

begin

s:=0; k:=0; a:=1;

while a<>0 do

begin

read (a);

if (a>0) and (a mod 8 = 0) then begin s:=s+a; k:=k+1; end;

end;

sr:=s/k;

write (sr);

end.