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