Question

Запишите результат выполнения следующих программ:
var i,s:integer;
begin
for i:=1 to 10 do
s:=s+1;
writeln ('s=',s);

end.

Answer 1

Здесь одна программа. Получится s = 10, так как 10 раз прибавляется 1