Варя составляет четырёхбуквенные слова перестановкой букв слова абак. при этом она избегает слов с двумя подряд идущими буквами а. сколько всего различных слов может составить вера? напишите эти варианты.

в чем отличие пользователя от программиста если кто-то работает с компьютером, то это не значит, что он программирует или умеет программировать. пользователь потому и называется пользователем, что он просто использует возможности компьютеров и программ, и чаще всего далек от способов их создания. же программиста создавать программы для тех, кому они нужны, т. е. для пользователей. причем системные программисты в основном программы для компьютерами, а программисты прикладные , прежде всего, пишут программы полезные массовому пользователю. в принципе, всех, кто работает с компьютером можно разделить на три категории: 1. программисты, программы для облегчения труда других пользователей. 2. программирующие пользователи, которые программы для решения своих , облегчения собственного труда. 3. непрограммирующие пользователи, желающие решать свои , используя уже существующие программы, не занимаясь программированием.

program picture; uses graph; const pathtodriver = 'd: \bp\bgi'; {подставьте свой путь к каталогу с файлами *.bgi}var gd,gm : integer; begin detectgraph(gd, gm); {определим драйвер и режим} initgraph(gd, gm, pathtodriver); {проинициализируем графику} if graphresult < > grok then halt(1); {если ошибка, завершим работу} setviewport(0,0,639,349,clipon); {установим область рисования} clearviewport; {очистим область рисования} {для рисования используем следующие процедуры} {circle(x,y,r) - рисует окружность} {moveto(x,y) - перемещает указатель в заданную точку} {lineto(x,y) - проводит линию от указателя до заданной точки,} { указатель перемещает в конец линии} {rectangle(x1,y1,x2,y2) - рисует прямоугольник} {putpixel(x,y,color) - ставит точку в позиции с заданным цветом} {человечек} circle(170, 225, 5); moveto(170, 230); lineto(170, 260); moveto(160, 240); lineto(170, 250); lineto(180, 240); moveto(160, 270); lineto(170, 260); lineto(180, 270); {домик} moveto(230, 270); lineto(230, 320); lineto(290, 320); lineto(290, 270); lineto(260, 220); lineto(230, 270); lineto(290, 270); moveto(250, 320); lineto(250, 290); lineto(270, 290); lineto(270, 320); putpixel(265, 305, white); {дерево} circle(345, 175, 45); rectangle(340, 220, 350, 320); readln; {задердка для просмотра} closegraph; {выход из графического режима}end.

на паскале:

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

написано для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.