Var s, n: integer;
Begin
s := 2;
For n := 2 to 5 do
s := s + n*2;
Writeln(s);
End.
напишите, пожалуйста, трассировочную таблицу
Begin
s := 2;
For n := 2 to 5 do
s := s + n*2;
Writeln(s);
End.
напишите, пожалуйста, трассировочную таблицу
Answers & Comments
Ответ:
6
12
20
30
Объяснение: