Определите число, которое будет напечатано в результате выполнения программы. var n, s: integer; begin n := 10; s := 0; while s <= 249 do begin s := s + 24; n := n + 3; end; write(n); end.
PascalABC.NET 3.3.5, сборка 1650 от 01.04.2018 Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк/столбцов в матрице:'); Writeln('*** Исходная матрица ***'); var b:=MatrRandom(m,m,-99,99); b.Println(4); Writeln(4*m*'-'); var (s,s1):=(Sqr(b[0,0]),0); for var i:=0 to m-1 do for var j:=0 to m-1 do if i+j<>0 then s1+=b[i,j]; s-=Sqr(s1); Writeln('Результат: ',s) end.
Var X: array [1..5, 1..5] of real; Y: array [1..4, 1..4] of real; i, j: byte; SumX, SumY: real; begin SumX := 0; SumY := 0; writeln('Массив X':28); for i := 1 to 5 do begin for j := 1 to 5 do begin X[i, j] := random*40-20; if X[i, j] < 0 then SumX := SumX + X[i, j]; write(X[i, j]:9:4); end; writeln; end; writeln; writeln('Массив Y':28); for i := 1 to 4 do begin for j := 1 to 4 do begin Y[i, j] := random*40-20; if Y[i, j] < 0 then SumY := SumY + Y[i, j]; write(Y[i, j]:9:4); end; writeln; end; writeln; writeln('Сумма отрицательных массива X = ', SumX:9:4); writeln('Сумма отрицательных массива Y = ', SumY:9:4); if SumX > SumY then writeln('Сумма отрицательных X - больше.') else if SumX < SumY then writeln('Сумма отрицательных Y - больше.') else writeln('Сумма отрицательных X и Y равны.') end.
Это у нас цикл с предусловием.
Вывести на экран нужно n, а n будет равно 43.
ответ: 43