Begin
var a:=ArrRandom(40,0,20).Println;
var s:=a.Where(x->x mod 3 = 0).Sum;
writeln('S = ',s);
end.
Пример:
8 11 7 18 1 9 10 16 5 1 15 17 15 20 12 7 15 18 2 15 0 7 19 4 7 17 2 19 3 11 1 15 1 2 3 4 18 5 7 1
S = 156
Источником слуховой информации может быть воробей, трава (если по ней идти или её будет качать ветер), лужа (если в ней будет плескаться вода), а приемником слуховой информации может быть только воробей, как живое существо, обладающее слухом.
Var i,n:integer;
begin
read(n);
for i := 1 to n do
writeln(i*i*i);
end.
Кокое слово можно составить из всех этих перечислиных букв-з,я,р,ц,е,п,т,е,н,а,и
Максим1236478 [21]
Из данных букв можно составить следующие слова: заяц, птица, заря, пятница, пена, цена, рецепт, ранец, тина, центр, патерн.
А полное слово: Презентация!