Сначала стоит немного подумать над задачей, а не писать "в лоб".
Если число кратно 2 и одновременно 3, то оно кратно и их произведению, т.е. 2 х 3 = 6. Ближайшее число, превышающее 10 и кратное 6 - это 12. Начинаем от него и идем с шагом 6, пока не превысим 99.
1. Так можно решить по-современному:
// PascalABC.NET 3.1, сборка 1190 от 05.03.2016 begin Writeln('Искомая сумма равна ',Range(12,99,6).Sum) end.
Результат выполнения программы Искомая сумма равна 810
2. А так - "по-школьному":
// PascalABC.NET 3.1, сборка 1190 от 05.03.2016 var i,s:integer; begin i:=12; s:=0; while i<=99 do begin s:=s+i; i:=i+6 end; Writeln('Искомая сумма равна ',s) end.
1024. высота каждого дерева может принимать два значения. (+/- 1 метр от высоты предыдущего, т.е известие, что последующие дерево выше предыдущего на 1 метр несет 1 бит информации) соответственнр основание системы счисления буде равно двум. Количество разрядов (бит) в комбинации 10 (т.к. 11 дерево всегда неизменно по высоте 100м). Применяем формулу Хартли: N=2^k. (т.к. вероятность того, что последующие дерево будет на метр выше такая же, что оно будет на метр ниже). 2^10 = 1024. Всего возможно 1024 комбинаций таких садов.
using System;
namespace ConsoleApp1
{
class Program
{
static void Main(string[] args)
{
int[] A = new int[10];
int s1 = 0, s2 = 1 , s3 = 0;
Random r = new Random();
for (int i = 0; i < 10; i++)
{
A[i] = r.Next(101) - 50;
if (A[i] < 0) s1 += A[i];
else if (A[i] == 0) s3++;
else s2 *= A[i];
Console.Write(A[i]+" ");
}
Console.WriteLine("\nСумма отрицательных элементов: {0}",s1);
Console.WriteLine("Произведение положительных элементов: {0}", s2);
Console.WriteLine("Количество нулевых элементов: {0}", s3);
}
}
}