Информатика

Геря

21 марта, 17:20

1) Var s, k, i:integer; Begin s=0 For k : = 3 to 8 do s : = s + 9; Writeln (s) ; End.

2) Var s, k, i:integer;

Begin

s=100

For k : = 1 to 9 do

s : = s - 5;

Write (s) ;

End.

3) Var s, k, i:integer;

Begin

s: = 1

For k : = 1 to 7 do

s : = s * 2;

Write (s) ;

End.

4) Var s, k, i:integer;

Begin

k: = 4

For i : = 1 to 3 do

k : = i + 2*k;

Writeln (k) ;

End.