Циклические программы


The Presentation inside:

Slide 0

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


Slide 1

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


Slide 2

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


Slide 3

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


Slide 4

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.


×

HTML:





Ссылка: