Var x: integer; begin for x: =-5 to 5 do writeln(x: 2,23*x+1: 6,21*x*x+7*x+1963: 6) end. результат -5 -114 2453 -4 -91 2271 -3 -68 2131 -2 -45 2033 -1 -22 1977 0 1 1963 1 24 1991 2 47 2061 3 70 2173 4 93 2327 5 116 2523
sergei-pletenev
16.03.2020
1) program z1; var k, m, r: integer; begin write('k = '); readln(k); write('m = '); readln(m); r : = 60 * k + m; writeln('в минутах: ', r); end. 2) program z2; var k, m, a, b, l: integer; begin write('k = '); readln(k); write('m = '); readln(m); write('a = '); readln(a); write('b = '); readln(b); write('l = '); readln(l); if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then writeln('пойду') else writeln('не пойду'); end. 3) program z3; var m, r: integer; begin write('m = '); readln(m); r : = m; while r > = 60 do r : = r - 60; writeln('стрелка будет показывать ', r, ' минут'); end.