Сколько раз будет выполняться цикл и какие значения примут переменные : а) s: =0; for i: =1 to 7 do s: =s-i б)p: =5; z: =20; for i: =1 to p do z: =z-p

A) 7 раз будет выполняться цикл For (1,2,3,4,5,6,7),
s примет значение: -28

var s,I: Integer;
begin
s:=0;
For I:=1 to 7 do
s:=s-I;
writeln(s);
end.

б) 5 раз будет выполняться цикл For (1,2,3,4,5).
z примет значение: -5

var p,z,I: Integer;
begin
p:=5;
z:=20;
For I:=1 to p do
z:=z-p;
writeln(z);
end.