Вычислите значение в циклических алгоритмах, начертите таблицу. var n, s, : integer ; begin n: =60; s: =25 while s< 365 do begin s: =s+20; n: =10 write (n) end.

Program n1; var a,b,sum,pr: integer; begin sum: =0; pr: =1; for a: =1 to 10 do begin sum: =sum+a; end; writeln('сумма чисел от 1 до 10 = ',sum); for a: =1 to 10 do begin pr: =pr*a; end; writeln('произведение чисел от 1 до 10 = ',pr); end. program n2; var a,b,n: integer; begin writeln('введите степень n'); readln(n); b: =1; for a: =1 to n do begin b: =b*2; end; writeln('2 в ',n,' степени = ', b); end. program n3; var sum,a,n,n2: integer; begin writeln('введите число n'); readln(n); n2: =n; while n< > 0 do begin a: =n mod 10; sum: =a+sum; n: =n div 10; end; writeln('сумма цифр ',n2,' = ',sum); end.

Аргументов пять, поэтому строк в таблицы истинности будет: 2^5 =32     в  1/4   от них f=1, то есть в 32/4  = 8 строках     f=1в пяти строках: f   g       f⇒g 1     1       11     1       10     0       10     0       10     0       1все остальные строки -   с различными значениями f и   g, то есть есть строки  , где ещё   шесть раз f=1, а  g =0 f   g     f⇒g 1     0       01     0       01     0       01     0       01     0      01     0       0именно в этих шести строках импликация f⇒g =0, во всех других строках f=0, а 0⇒0 =1 и 0⇒1=1 вывод:   6 - число значений   0  для   функции    f⇒g в таблице истинности.