Неправильно выдаёт часы ? program z1; var m, d, n, m1, s, m2, h: integer; begin write('введите значение m: '); readln(m); d : = m div 86400; n : = m div 86400; m1 : = 0; m1 : = 1; s : = m mod 60; m : = m div 60; m2 : = m mod 60; m : = m div 60; h : = m mod 60; if h > 23 then
begin while h < 24 do begin h : = h - 24; n : = n + 1; end; end; if n > 31 then //январь begin n : = n - 31; m1 : = 2; if d > 28 then //февраль begin n : = n - 28; m1 : = 3; if n > 31 then //март begin n : = n - 31; m1 : = 4; if n > 30 then//апрель begin n : = n - 30;
m1 : = 5; if n > 31 then//май begin n : = n - 31; m1 : = 6; if n > 30 then//июнь begin n : = n - 30; m1 : = 7; if n > 31 then//июль begin n : = n - 31; m1 : = 8; if n > 31 then//август begin n : = n - 31; m1 : = 9; if n > 30 then//сентябрь begin n : = n - 30; m1 : = 10;
if n > 31 then//октябрь begin n : = n - 31; m1 : = 11; if n > 30 then//ноябрь begin n : = n - 30; m1 : = 12; if n > 31 then//декабрь begin n : = n - 31; m1 : = 1; end; end; end; end; end; end; end; end; end; end; end; end; if n> 365 then begin while n< 365 do
begin n: =n-365; end; end; writeln('день с начала года: ', d); writeln('число: ', n); writeln('месяц: ', m1); writeln('время: ', h, ' ', m2, ' ', s); end.

Var a:array of array of integer;
c:array of array of integer;
ma:array of array of integer;
i,j,n:integer;
begin;
randomize;
readln(n);
setlength(a,n+1); //задаём размерность динамических массивов
setlength(c,n+1);
setlength(ma,n+1);
for i:=1 to n do
begin;
setlength(a[i],n+1);
setlength(c[i],n+1);
setlength(ma[i],n+1);
end;

writeln('Matrix A:');   //генерируем массив псеводслучайных чисел
for i:=1 to n do begin;
 writeln;
  for j:=1 to n do
   begin;
    a[i,j]:=random(10);
    write(a[i,j]:4);
   end;
 end;
writeln;

writeln('Matrix C:'); //аналогично
for i:=1 to n do
 begin;
 writeln;
  for j:=1 to n do
   begin;
    c[i,j]:=random(10);
    write(c[i,j]:4);
   end;
 end;

for i:=1 to n do     //сохраняем матрицу C для транспонации
  for j:=1 to n do
    ma[i,j]:=c[i,j];
    writeln;

writeln('Transpose matrix C:'); //транспонируем C
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     c[i,j]:=ma[j,i];
     write(c[i,j]:4);
    end;
 end;

writeln;
writeln('Final matrix:'); // получаем финальную матрицу
for i:=1 to n do
 begin;
  writeln;
   for j:=1 to n do
    begin;
     ma[i,j]:=2*c[i,j]*a[i,j];
{по свойству дистрибутивности матриц С(A+A)=C*A+C*A=2*C*A}
     write(ma[i,j]:4);
    end;
 end;
end.

Школьный обед - меню (список блюд с ценой), сколько человек подписаны на бесплатный/комплексный обед, какой объем блюд нужно приготовить к обеду, время обеда и тд

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

Пассажир поезда - имя, место, билет, постель, чай, спутники, багаж, от куда и куда, поезд и вагон

Дом, в котором ты живешь -  адрес, этажность, материал стен, коммуникации, год сдачи, кол-во подьездов и тп