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; var i, s, s11, s0, s_kr, s_nkr : integer; var x : integer; begin s := 0; s11 := 0; s_kr := 0; s_nkr := 0; for i := 1 to n do begin readln (x); if x mod 11 = 0 then begin s_kr := s_kr + s11; // важна именно такая посл-сть строк s11 := s11 + 1; end else begin s0 := s0 + 1; end; s_nkr := s11 * s0; // это считаем за скобками else, чтобы учесть все s11 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
Weather
lecturas
For8
test11
Naloga 8: 10.9.2008
342
Ipis unazad ulancana lista
Calculatrice (case of)
formato_real
ariketa 05