Циклические программы Устный счет Язык программирования Pascal ABC. - презентация

1 Циклические программы Устный счет Язык программирования Pascal ABC

2 var k,i: integer; begin k:=4; for i:=1 to 4 do k:=k+1; writeln (k); end.

3 var n,i,s: integer; begin s:=0; for i:=2 to 5 do s:=s+i; writeln (s); end.

4 var x,y,i: integer; begin y:=2; for i:=10 downto 5 do y:=y+i; writeln (y); end.

5 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.