Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
a) for i:=1 to 8 do a[i]:=i*5 - элемент равен значению индекса элемента (i) умноженного на 5
i = 1
a[1] = 1 * 5 = 5
i = 2
a[2] = 2 * 5 = 10
i = 3
a[3] = 3 * 5 = 15
i = 4
a[4] = 4 * 5 = 20
i = 5
a[5] = 5 * 5 = 25
i = 6
a[6] = 6 * 5 = 30
i = 7
a[7] = 7 * 5 = 35
i = 8
a[8] = 8 * 5 = 40
б) for i:=1 to 8 do if i mod 2=0 then a[i]:=i else a[i]:=i-2 - если индекс элемента чётный, то элемент равен своему индексу, иначе (индекс элемента нечётный) элемент равен индекс минус 2
Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие.
Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
var s1:=ReadReal('Площадь квадрата');
var s2:=ReadReal('Площадь круга');
if pi*s1<2*s2 then Writeln('Квадрат умещается в круге')
else Writeln('Квадрат не умещается в круге')
end.
Тестовое решение:
Площадь квадрата 24.6
Площадь круга 28.4
Квадрат не умещается в круге
a)
1. 5
2. 10
3. 15
4. 20
5. 25
6. 30
7. 35
8. 40
б)
1. -1
2. 2
3. 1
4. 4
5. 3
6. 6
7. 5
8. 8
Объяснение:
a) for i:=1 to 8 do a[i]:=i*5 - элемент равен значению индекса элемента (i) умноженного на 5
i = 1
a[1] = 1 * 5 = 5
i = 2
a[2] = 2 * 5 = 10
i = 3
a[3] = 3 * 5 = 15
i = 4
a[4] = 4 * 5 = 20
i = 5
a[5] = 5 * 5 = 25
i = 6
a[6] = 6 * 5 = 30
i = 7
a[7] = 7 * 5 = 35
i = 8
a[8] = 8 * 5 = 40
б) for i:=1 to 8 do if i mod 2=0 then a[i]:=i else a[i]:=i-2 - если индекс элемента чётный, то элемент равен своему индексу, иначе (индекс элемента нечётный) элемент равен индекс минус 2
i = 1
1 mod 2 = 0 (НЕТ)
a[1] = 1 - 2 = -1
i = 2
2 mod 2 = 0 (ДА)
a[2] = 2
i = 3
3 mod 2 = 0 (НЕТ)
a[3] = 3 - 2 = 1
i = 4
4 mod 2 = 0 (ДА)
a[4] = 4
i = 5
5 mod 2 = 0 (НЕТ)
a[5] = 5 - 2 = 3
i = 6
6 mod 2 = 0 (ДА)
a[6] = 6
i = 7
7 mod 2 = 0 (НЕТ)
a[7] = 7 - 2 = 5
i = 8
8 mod 2 = 0 (ДА)
a[8] = 8