{#1 Деление на числа меньше 7}
begin
var F: boolean;
var a: integer; read(a);
for var x := 7 downto 1 do
begin
F := (a mod x = 0) ? true : false;
if F <> true then break;
end;
end.
{#2 Находится ли точка внутри окружности}
begin
var F: boolean;
var z: cardinal;
var x,y: double; read(x,y,z);
x := (x<1)? x*-1:x;
y := (y<1)? y*-1:y;
if (x<z) and (y<z) then
F := true;
end.
{#3 В трехзначном числе есть три одинаковые цифры}
begin
var F: boolean;
var n: integer; read(n);
var s := n.ToString;
if (s[1] = s[2])
or (s[2] = s[3])
or (s[1] = s[3]) then
F := true;
end.
{#4 Точки лежат на одной прямой}
begin
var F: boolean;
var x1,y1,x2,y2,x3,y3: integer;
read (x1,y1,x2,y2,x3,y3);
if (x2 - x1)*(y3 - y1) - (x3 - x1)*(y2 - y1) = 0 then
F := true;
end.
{#5 Х или трёхзначное чётное число или четырёхзначное нечётное}
begin
var F: boolean;
var x:integer; read(x);
var s:=x.ToString;
if ((length(s) = 3) and (x mod 2 = 0)) or ((length(s) = 4) and (x mod 2 <> 0)) then
F := true;
end.
1. Сначала посмотри на название статьи, параграфа, брошюры и т. д.
2. Вспомни и запиши все, что ты знаешь или только слышал по этой теме. Можешь записать и свои предположения.
3. Обменяйся информацией с приятелем.
4. Составляется коллективный «банк предложений».
5. Прочитай текст, делая пометки карандашом.
+ - новая для меня информация;
- - думал иначе;
? - не понял, есть вопросы.
6. Текст прочитан. Вернитесь к первоначальным записям. Какие подтвердились? Какие предположения оказались ложными? Какие не нашли подтверждения?
7. Чтобы превратить информацию в знания, необходимо проговорить и осмыслить прочитанное.
Этапы стратегии IDEAL
I — Выделите в тексте проблему. Какую главную проблему должны решить герои?
D -- Опишите ее (выявите ее суть).Какой важной информацией снабдил вас автор?
Е - Определите варианты подходов к. решению проблемы. Каковы на ваш взгляд три главных решения проблемы?
А-- Действуйте (решайте). Какой из выбранных вами наилучший?
L — Сделайте вывод, проведите рефлексию своей работы.
.
