Var s, n: integer; begin s := 42; n := 1; while s > 0 do begin s := s – 5; n := n + 3...

Question

Var s, n: integer;
begin
s := 42;
n := 1;
while s > 0 do
begin
s := s – 5;
n := n + 3
end;
writeln(n)
end
Помогите решить задание по информатике!!!

Answer 1

Шаг №1  
             S = 42 - 5 = 37
              n = 1 + 3 = 4
Шаг №2
              S = 37 - 5 = 32
               n = 4 + 3 = 7                
Шаг №3
              S = 32 - 5 = 27
               n = 7 + 3 = 10
Шаг №4
              S = 27 - 5 = 22
               n = 10 + 3 = 13
Шаг №5
              S = 22 - 5 = 17
              n = 13 + 3 = 16
Шаг №6
              S = 17 - 5 = 12 
              n = 16 + 3 = 19
Шаг №7
              S = 12 - 5 = 7
               n = 19 + 3 = 21
Шаг №8
              S = 7 - 5 = 2
               n = 21 + 3 = 24

А вот КОРОТКОЕ решение:
     42 / 5 = 8 + 2/5
     n = 8*3  = 24