Циклические программы Устный счет Язык программирования Pascal ABC
var k,i: integer; begin k:=4; for i:=1 to 4 do k:=k+1; writeln (k); end.
var n,i,s: integer; begin s:=0; for i:=2 to 5 do s:=s+i; writeln (s); end.
var x,y,i: integer; begin y:=2; for i:=10 downto 5 do y:=y+i; writeln (y); end.
var n,i,s: integer; begin s:=5; for i:=3 to 7 do begin s:=s+i; s:=s*2; end; writeln (s); end.