using System; public class Program{ public static void Main() { int[] a = new int[10]; for (int i = 1; i < 10; i++) a[i] = i; int count = 0; int sum = 0; int mul = 1; for (int i = 0; i < a.Length; i++) if (a[i] > 0) { count++; sum += a[i]; mul *= a[i]; } Console.WriteLine("сумма : " + sum); Console.WriteLine("произвдение : " + mul); Console.WriteLine("количество : " + count); }}
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата 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 Квадрат не умещается в круге
using System; public class Program{ public static void Main() { int[] a = new int[10]; for (int i = 1; i < 10; i++) a[i] = i; int count = 0; int sum = 0; int mul = 1; for (int i = 0; i < a.Length; i++) if (a[i] > 0) { count++; sum += a[i]; mul *= a[i]; } Console.WriteLine("сумма : " + sum); Console.WriteLine("произвдение : " + mul); Console.WriteLine("количество : " + count); }}