Определите результат работы программы, написанной на языке паскаль. 1) program a5 var i, m: integer; begin m: = 0 for i: = 1 to 6 do m: = m-6 writeln (m) end. 2) program a6 var i, m: integer; begin m: = 0; for i: = 3 to 7 do m: = m-6+i; writeln (m) end.

1) program a5:

на экран будет выведено:  

-36

2) program a6:

на экран будет выведено:  

-5

в результате выполнения программы a5   будет напечатанно:   -36

  в результате выполнения программы a6   будет напечатанно:   -5

 

 

F=(а & b) v (b & c & a)        a     b     c     f  false false false false  false false   true false  false   true false false  false   true   true false  true false false false  true false   true false  true   true false   true  true   true   true   true var a,b,c,f: boolean; beginwriteln('a': 6,'b': 6,'c': 6,'f': 6); for a: =false to true do beginfor b: =false to true do beginfor c: =false to true do beginf: =(a and b) or (b and c and a); writeln(a: 6,b: 6,c: 6,f: 6); end; end; end; end.

Var       c: integer;       n: real; begin       write('перевод в градусы (1) или в радины (2) ? ');       readln(c);       write('переводимая величина = ');       readln(n);             if c = 1 then               writeln(n, ' radian = ', n * 180 / pi, ' gradus')       else               writeln(n, ' gradus = ', n * pi / 180, ' radian') end.