Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Сумма пар чисел кратных и некратных 11
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; // важна именно такая посл-сть строк s_nkr := s11 * s0; end; end; s := s_kr + s_nkr; writeln (s11, ' ', s0, ' ', s_kr, ' ', s_nkr, ' ', s); end.
run
|
edit
|
history
|
help
0
123
Enkripsi2
ALEX LIMA NEPOMUCENO 600624764
Localisation ND
zadanye 4
GABRIELLA ALVES DA SILVA 600307538
НОД всеми способами
Fast program
123
Code1