Космос это волшебный и бесскрайний мир для ребёнка и его чудесных фантазий.Луна для них это один парк аттракционов чтобы попрыгать и зависнуть в воздухе и разглядывать чудесные сверкающие звезды,дети думают что на звездах живут маленькие крохотные человечки которые махают своими ручками.Дети это одна большая Фантазия!
Вот программа : program xxx; <p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
Ms dos qbasic 1.0: cls randomize timer input "k = ", k input "l = ", l dim x! (k, l) for i = 1 to k for j = 1 to l x(i, j) = rnd * 21 - 10 print using "###"; x(i, j); print ; " "; next j print next i for i = 1 to l * 4 - 1 print ; "_"; next i print for n = 1 to l for i = 1 to l - n - 1 if x(i, 2) < x(i + 1, 2) then b = x(i, 2) x(i, 2) = x(i + 1, 2) x(i + 1, 2) = b end if next i next n for i = 1 to k for j = 1 to l print using "###"; x(i, j); print " "; next j print next i end
Космос это волшебный и бесскрайний мир для ребёнка и его чудесных фантазий.Луна для них это один парк аттракционов чтобы попрыгать и зависнуть в воздухе и разглядывать чудесные сверкающие звезды,дети думают что на звездах живут маленькие крохотные человечки которые махают своими ручками.Дети это одна большая Фантазия!