Vark,a:integer;begink:=0;While true do beginread(a);if a=0 then break;if (a mod 8=0) and (a mod 10=6) then k+=1;end;print(k)end.
От хаоса к порядку: от поднесения магнита к железным опилкам. Опилки из хаоса соединяются в одно целое.
от порядка к хаосу: листья лежали в одной куче, ветер подул - они разлетелись.
Если,конечно, вам нужны примеры из жизни-вот они)
1. Программа Paint,ещё Photoshop.
2. Microsoft Word,
Блокнот
52+34=86
86=1010110
Как я решал:
86:2остаток 0
43:2 остаток 1
21:2 остаток 1
и т.д. до
2:2 остататок 0