(pascal abc) ! нарисовать пять квадратов, расположенных друг относительно друга по диагонали так, чтобы правая нижняя вершина предыдущего квадрата совпадала с левой верхней вершиной последующего.
begin Window.SetSize(500,500); var (x,y):=(50,50); setpenwidth(3); for var i:=1 to 5 do begin setpencolor(RGB(random(255),random(255),random(255))); x:=x+50; y:=y+50; Rectangle(x,y,x+50,y+50); end end.
Сочетание Ctrl + --> это прыжок на начало следующего слова. Сочетание Ctrl + Del это удалить часть слова от курсора до пробела. Если курсор стоит перед 1 буквой - удалится всё слово. 1) Нажимаем 2 раза Ctrl + --> и попадаем на скобку "(". 2) Нажимаем 6 раз Ctrl + Del и удаляем: скобку "(", 4 слова в скобках, и скобку ")". 3) Получили "словможно". Теперь нужно нажать пробел, чтобы разделить слова: "слов можно" ответ: 3) 1 клавишу и 8 сочетаний. Как вы за компьютером работаете, если MS Word не знаете?
uses crt,graph; type mas=array[1..500] of Pointtype; var gd,gm,i,j,k,n:integer; a:mas; begin randomize; gd:=0; initgraph(gd,gm,''); for i:=1 to 500 do begin a[i].x:=random(getmaxX); a[i].y:=random(getmaxY); circle(a[i].x,a[i].y,2); end; k:=0;n:=0; repeat k:=k+1; delay(200); setcolor(0); for i:=1 to 500 do circle(a[i].x,a[i].y,2); for i:=1 to 500 do begin if a[i].y>getmaxY-n-10 then a[i].y:=1 else a[i].y:=a[i].y+3; if a[i].x<0 then a[i].x:=getmaxX else a[i].x:=a[i].x-1; end; setcolor(15); for i:=1 to 500 do circle(a[i].x,a[i].y,2); if k mod 20=0 then begin n:=n+1; line(0,getmaxY-n,getmaxX,getmaxY-n); end; until keypressed; readln end.
begin
Window.SetSize(500,500);
var (x,y):=(50,50);
setpenwidth(3);
for var i:=1 to 5 do
begin
setpencolor(RGB(random(255),random(255),random(255)));
x:=x+50; y:=y+50;
Rectangle(x,y,x+50,y+50);
end
end.