Const n = 7; var a: array[1..n,1..n] of integer; i,j: integer; beginfor i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' ') end; writeln end; writeln; for i: = 1 to n div 2+(n mod 2) do begin for j: = 1 to n do begin if (j< =n div 2+i)and(n div 2-i+(n mod 2)< j) then a[i,j]: =99; write(a[i,j]: 3,' ') end; writeln; end; for i: = (n div 2)+(n mod 2)+1 to n do begin for j: = 1 to n do begin if (i-n div 2-1< j)and(j< =n+n div 2+1-i) then a[i,j]: =99; write(a[i,j]: 3,' ') end; writeln; end; end.
annaar497
27.01.2023
Константы в pascal. иногда, бывает так, что у нас в программе встречаются величины, которые не меняются в процессе выполнения программы (т.е. фактически они противоположность переменных). такие величины называются константами. константы указываются в специальном функции pred, succ в pascal. в данном уроке мы рассмотрим функции, применяемые к типу char. функция pred возвращает в качестве значения предшествующий символ, а функция succ возвращает последующий символ. использование var, integer, readln. процедура readln используется не только для задержки экрана. ее основная - ввод данных с клавиатуры. в этой статье мы научимся вводить числа с клавиатуры, и потом выводить их на экран. для этого нам будет необходимо познакомиться с разделом
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
На вычисление суммы сходящегося ряда решить на вычисление суммы сходящегося ряда в c#