Написать программу которая найдет площадь прямоугольника. Значение сторон вводится с клавиатуры. программа питон 3.7.4.​

ответ:

5

Объяснение:i := 0; S := 0;while i<2 dobegini := i + 1;S := S + i * i;end;

В программе цикл, который выполняется до тех пор, пока i<2.

Изначально i = 0, S = 0. Проходим по циклу:

i:=i+1         /// Увеличиваем i на 1 (i = 0 + 1 = 1)

S:=S+i*i    /// Прибавляем к S произведение i и i (S = 0 + 1*1 = 1)

i<2 ? i = 1, так что да, поэтому выполняем:

i:=i+1         /// Увеличиваем i на 1 (i = 1 + 1 = 2)

S:=S+i*i    /// Прибавляем к S произведение i и i (S = 1 + 2*2 = 5)

i<2 ? i = 2, так что нет, поэтому конец.

Итак, как мы видим, S у нас равна 5.

Можем проверить, выполнив этот код:

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
  a.GroupBy(t->t).Select(t->(t.Key,t.Count)).OrderBy(t->t[0])
      .Foreach(t->Writeln(t[0],' - ',t[1]))
end.

Пример
n= 100
5 7 6 0 1 3 1 4 9 2 8 7 5 2 1 6 1 6 6 6 1 0 1 2 4 9 7 0 5 6 2 7 3 3 1 5 7 5 9 8 1 8 7 8 8 7 3 2 4 4 5 6 8 3 9 4 5 3 6 2 6 0 9 3 9 0 4 2 1 6 9 6 7 7 5 3 3 3 3 7 6 4 5 0 0 5 8 0 4 6 9 3 8 6 1 0 9 3 8 7
0 - 9
1 - 10
2 - 7
3 - 13
4 - 8
5 - 10
6 - 14
7 - 11
8 - 9
9 - 9