Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Задание 27 2018 г.
//fpc 3.0.0 program HelloWorld; const delta = 1; var n, i, s, s11, sn, x : integer; a : array [0..delta] of integer; begin s := 0; s11 := 0; sn := 0; readln (n); for i := 0 to delta do begin readln (x); a[i] := x end; for i := delta + 1 to n - 1 do begin if a[0] mod 11 = 0 then s11 := s11 + 1 else sn := sn + 1; readln (x); if x mod 11 = 0 then s := s + s11 + sn else s := s + s11; a[0] := a[1]; a[1] := x; end; writeln(s); end.
run
|
edit
|
history
|
help
0
Letícia
Pokazivaci, ulancane liste
Homework 5
Задача 6.14 из учебника Грицановой (квартира)
Calculatrice 1.0
AreaTriangulo.pas
проверка числа на отсутствие возрастающих и убывающих четвёрок
codigo
abundante
Typecast an array to other type