Үй тапсырмасы
N натурал сан берілген. Көбейтіндінің алгоритмін есеп-
теп, құрастырыңдар:​

папирусы хранили в виде свитков, которые сворачивали в длинную папирусную ленту. эту ленту склеивали  из отдельных листов и заворачивали в трубку. именно в таких свитках дошли до нас древние тексты, хотя сохранились они хуже, чем письмена на глиняных табличках.

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

program _1_2; uses crt; var  dlina, shirina, vysota: real; begin  clrscr;   textcolor(14);   writeln('вычисление объёма параллелепипеда.');   writeln('введите исходные данные: ');   write('длина (см) -> ');   readln(dlina);   write('ширина (см) -> ');   readln(shirina);   write('высота -> ');   readln(vysota);   writeln('объём: ',(dlina*shirina*vysota): 7: 2);   repeat  until keypressed; end.

var alpha: real;

begin

  read(alpha);

  if alpha > 90 then write("tupougolnyj");

  if alpha = 90 then write("prjamougolnyj");

  if alpha < 90 then write("ostrougolnyj");

end.