Var s, k: integer; begin s := 40; for k := 1 to 7 do s := s - 3; write (s); end.

Question

Var s, k: integer;
begin
s := 40;
for k := 1 to 7 do
s := s - 3;
write (s);
end.

Answer 1

Var
    s, k: integer;

begin
    s := 40;
    for k := 1 to 7 do
        s := s - 3;
    write(s);
end.

Вывод 19

Модераторам - если нужно, то можно удалять без предупреждения

Comments

хм,а можно с объяснением?

---

Каким обьяснением? Копипастим код в программу PascalABC.Net, убираем левые символы непонятных пробелов на которые ругается компилятор, жмем выполнить, все

---

код же простой в доску. или вы его прочитать не можете?

---

7 раз от s отнимается 3. s = 40-3*7 = 19