Найти сумму квадратов всех натуральных чисел от 1 до 100. решить используя цикл while и repeat

===== PascalABC.NET =====

begin

 var (s, i) := (0, 1);

 while i <= 100 do

 begin  

   s += Sqr(i);

   i += 1

 end;

 Println(s);

 

 (s, i) := (0, 1);

 repeat

   s += Sqr(i);

   i += 1

 until i > 100;

 Println(s)

end.

5 цифр ответ 10010

Объяснение:

При переводе в двоичную систему мы каждое число делим на 2. 18 мы делим на 2 берём по 9. От 18-18=0. Дальше где в ответе у нас получилось 9 мы эту девятку делим на 2 берём по 4 это 8 от 9-8=1 пишим 1. Дальше мы 4 делим на 2 берём по 2 ответ 4 будет ноль. Потом 2 делим на 2 берём по 1. 2-2=0

И вот те чифры которые у нас остались от деления когда мы вычитал от 18-18,от 9-8. Мы их записываем в обратном порядке. Вот и ответ 10010. Надеюсь хорошо объяснила

Если не понятно спрашивай ;)

Что бы это уравнение было верно, нужно, что бы все скобки были итинными.

Следствие всегда истинно, кроме если из истинны идет ложь. Рассотрим эти варианты по скобкам. Исключая варианты которые входят в предыдущие ходы.

1) J = 1 L = 0 --- 8 вариантов

2) K = 1 L = 0 --- 4 варианта

3) M = 1 N = 1 --- 5 вариантов

4) L = 1 M = 0 --- 8 вариантов

5) M = 1 K = 0 --- 3 вариантов

всего 28 вариантов неверных.

32 - 28 = 4 верных варианта --- 4 решения уравнения.

 

П.С. Можно решить легче: сначала подставить L=0 и делать что бы в скобках было 1 всегда. Потом L=1. У меня получилось в первом 2 варианта и во втором 2. всего 4