Информатика: Прогламмалау тілдері

Прогламмалау тілдері

Показать ответ

Ответ:

owe4kinad

17.10.2021 09:39

Var
A,B0,B1,B2,B3,B4,B5,B6,B7,B8,B9:integer;
Begin
WriteLn('Введите число');
ReadLn(A);
While A>0 do
   Begin
   Case A mod 10 of
   0:B0:=B0+1;
   1:B1:=B1+1;
   2:B2:=B2+1;
   3:B3:=B3+1;
   4:B4:=B4+1;
   5:B5:=B5+1;
   6:B6:=B6+1;
   7:B7:=B7+1;
   8:B8:=B8+1;
   9:B9:=B9+1;
   End;
   A:= A div 10;
   End;
if (B0 = 3)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)then WriteLn('Верно')
else if (B1 = 3)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)then WriteLn('Верно')
else if (B2 = 3)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)then WriteLn('Верно')
else if (B3 = 3)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)then WriteLn('Верно')
else if (B4 = 3)and(B5<2)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)then WriteLn('Верно')
else if (B5 = 3)and(B6<2)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)then WriteLn('Верно')
else if (B6 = 3)and(B7<2)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)then WriteLn('Верно')
else if (B7 = 3)and(B8<2)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)then WriteLn('Верно')
else if (B8 = 3)and(B9<2)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)then WriteLn('Верно')
else if (B9 = 3)and(B0<2)and(B1<2)and(B2<2)and(B3<2)and(B4<2)and(B5<2)and(B6<2)and(B7<2)and(B8<2)then WriteLn('Верно')
else WriteLn('Не верно')
End.

0,0(0 оценок)

Ответ:

miki745

29.04.2020 19:54

Мой совет - запомнить как основную формулу для суммы первых n натуральных чисел

$S_n=1+2+3+\ldots + n=\frac{n(n+1)}{2}$

Доказывается она так: записываем те же числа в обратном порядке:

$S_n=n+(n-1)+(n-2)+\ldots +2+1

$

и складываем эти равенства таким образом: первое слагаемое с первым, второе со вторым и т.д. Поскольку в первой сумме каждое следующее слагаемое на 1 больше предыдущего, а во второй на 1 меньше предыдущего, мы получим сумму одинаковых чисел:

$2S_n=(1+n)+(2+n-1)+(3+n-2)+\ldots +(n-1+2)+(n+1);$

$2S_n=(n+1)+(n+1)+(n+1)+\ldots + (n+1);$

слагаемых всего n, поэтому

$2S_n=n(n+1)\Rightarrow S_n=\frac{n(n+1)}{2}.

$

Теперь несложно найти сумму первых n четных чисел. Можно провести подобную выкладку, а можно свести новую задачу к предыдущей:

$2+4+6+\ldots +2n=2(1+2+3+\ldots n)=2\frac{n(n+1)}{2}=n(n+1)$

ответ: n(n+1)