<em>PascalABC.NET 3.2</em>
uses GraphABC;
begin
var xc:=300;
var yc:=250;
var r:=150;
var dx:=Trunc(r*cos(Pi/3));
var dy:=Trunc(r*sin(Pi/3));
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
r:=r-10;
dx:=Trunc(r*cos(Pi/3));
dy:=Trunc(r*sin(Pi/3));
Pen.Color:=clRed;
Brush.Color:=Pen.Color;
Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
(xc-dx,yc+dy),(xc+dx,yc+dy));
Font.Color:=clWhite;
Font.Size:=50;
Font.Style:=fsBold;
SetCoordinateOrigin(xc-90,yc-40);
Write('STOP');
end.
#include < bits/stdc++.h>
using namespace std;
int main()
{
int Count, Min, num;
cin >> Count;
Min = 30000;
for(int i = 0; i < Count; ++i){
cin >> num;
if(num % 3 == 0 && num < Min){
Min = num;
}
}
cout << Min;
return 0;
}
При линейной структуре отдельные части учебного материала образуют непрерывную последовательность тесно связанных между собой звеньев, прорабатываемых за время обучения, как правило, только один раз (пригодна для изложения языков, истории, литературы, музыки и т.п.).
Концентрическая структура предполагает возвращение к изучаемому материалу. Один и тот же вопрос прорабатывается несколько раз, причем его содержание постепенно расширяется, обогащается новыми сведениями, связями и зависимостями (пригодна для изложения физики, химии, биологии и т.п.).
Var
S1,S2,S3:string;
i:integer;
Begin
Write('S1: ');ReadLn(S1);
Write('S2: ');ReadLn(S2);
For i:= 1 to Length(S1) do
if i mod 2 = 0 then S3:=S3+S2
else S3:=S3+S1[i];
S1:=S3;
Write('S1: ',S1);
End.
Пример:
S1: 123456789
S2: ||
S1: 1||3||5||7||9
Ответ:
12212
Объяснение:
1)Приписываем 2 будет 12
2)Делим на два будет 6
2)Делим на два будет 3
1) Приписываем два будет 32
2) Делим на 2 будет 16
