Информатика: Найти сумму n первых натуральных чисел паскаль

standartny1ychenik

25.03.2022 13:48

Информатика

Есть ответ 👍

Найти сумму n первых натуральных чисел паскаль

278

432

Посмотреть ответы 2

Ответы на вопрос:

Ника111111111122222

Информатика

4,4(17 оценок)

Var n,s,a: integer; begin readln(n); for n: =n downto 1 do begin read(a); s+=a; end; writeln(s); end.

julietsimms

Информатика

4,6(58 оценок)

Делим на 2 каждый раз, пока не дойдем до 1, при каждом делении остатки выносим, обратный порядок остатков будет двоичным кодом. 27: 2=13(остаток 1). 13: 2=6(остаток 1). 6: 2=3(без остатка, т.е. 0). 3: 2=1(остаток 1). ну и последнию единицу выносим, и с нее в обратном порядке переписываем остатки: 11011