program xxx; var i, j, k, n, p, s : integer; a : array [1..20] of integer; begin write (‘введите количество инверсий -‘); readln(k); write (‘введите количество ламп -‘); readln(n); for i: =1 to n do a[i]: =0; for i: =1 to k do begin write (‘введите инверсию p-‘); readln(p); j: =p; while j< =n do begin if a[j]=0 then a[j]: =1 else a[j]: =0; j: =j+p end end; s: =0; for i: =1 to n do if a[i]=1 then s: =s+1; write (‘ламп горит -‘, s); readlnend.
Ответ разместил: Гость
pust’ x chaek na pervom ostrove,a y na vtorom.
togda iz uslovia mozhno sostavit’ sistemu:
otvet: 59 chaek na pervom ostrove, 20 na vtorom.
Источник: otvetiq.com
Определить значение переменной у после выполнения следующих фрагментов программы:a) Var у : real; i : integer; у := 1 ; i := 5; while i больше 2 do i:= i — 1; y:=y + 1 * i;b) Var у : real; i : integer; у := 1 ; i := 2 ; repe.
Определить значение переменной у после выполнения следующих фрагментов программы: a) Var у : real; i : integer; у := 1 ; i := 5; while i> 2 do i:= i — 1; y:=y + 1 * i; b) Var у : real; i : integer; у := 1 ; i := 2 ; repeat i:= 2 * i; y:=y + i until i > 5; c) Var у : real; i : integer; у := 1 ; i := 1; while i 1 do begin y:=y + 1 / i; i:= I – 1; end; e) Var у : real; i : integer; у := 1 ; i := 5; repeat i:= 2 * i; y:=y + i until i > 5; f) Var у : real; i : integer; у := 1 ; i := 1; repeat y:= y + 1 / i; i:= I — 1 until i Спасибо Пожаловаться
9 задание ОГЭ Информатика 2019
Источник: cwetochki.ru