Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Сумма пар чисел кратных и некратных 11 с дельтой
{версия 10.07.18 16:47} //var a : array [1..n] of integer = ( 55, 2, 11, 1, 3, 44, 4); const n = 7; const y = 11; const d = 2; var i, s, s11, s0, s_kr, s_nkr : integer; var x : integer; var m : array [0..d] of integer; begin s := 0; s11 := 0; s_kr := 0; s_nkr := 0; for i := 1 to d do begin readln (x); m[i] := x; end; for i := d+1 to n do begin readln (x); if ( m[0] mod 11 = 0 ) and ( x mod 11 = 0 ) then begin s_kr := s_kr + s11; // важна именно такая посл-сть строк s11 := s11 + 1; end else if (( m[0] mod 11 = 0 ) and ( x mod 11 <> 0 )) or (( m[0] mod 11 <> 0 ) and ( x mod 11 = 0 )) then begin s0 := s0 + 1; end; s_nkr := s11 * s0; // это считаем за скобками else, чтобы учесть все s11 if ( m[0] mod 11 <> 0 ) and ( x mod 11 <> 0 ) then begin // ничего не делаем end end; // конец цикла for s := s_kr + s_nkr; writeln ('s11=', s11, ' s0=', s0, ' s_kr=', s_kr, ' s_nkr=', s_nkr, ' s=', s); writeln ((s11-1)*s11 div 2 + s11*s0); end.
run
|
edit
|
history
|
help
0
Ejercicio SQRT
zadacha10
lala
рекурсия двух функций
тренировка баскетболиста 2
Data fb Akanshapanchal2000@gmail.com
Dd
считалочка02
nomer2
Régua do Tanque Cilindrico Horizontal