Question

Определите, что будет напечатано в результате работы следующей программы
Var s,k: integer;
Begin
s:=100
for k:= 2 to 7 do
s:=s -10
write (s)
End.

Определите, что будет написано в результате работу следующей программы:
Var k, i: integer;
Begin
k:=2;
For i:= 1 to 4 do
k:= 2*i+k;
Writeln(k);
End.

Answer 1

1. Ответ: 40

s:=100
for k:= 2 to 7 do - цикл выполниться 6 раз (7-2+1=6)
s:=s -10 = 100 - 10*6 = 40 (100 - 10 - 10 - 10 - 10 - 10 - 10 = 100 - 10*6 = 40)

2. Ответ: 22

k:=2
For i:= 1 to 4 do - цикл выполниться 4 раза (4-1+1=4)
k:= 2*i+k = 2*10 + 2 = 22 (2*(1+2+3+4) + 2 = 2*10 + 2 = 22)