40 на паскале написать дано целое число k (1< =k< =365 определить каким днём недели (понедельник, или воскресенье) является k-й день года, в котором 1 января: а)понедельник б)d-й день недели (если 1 января-понедельник, то d=1, если вторник -d = воскресенье d=7).

Uses crt; var k,n: integer; begin clrscr; writeln ('введи день года от 1 до 365'); readln (k); if (k> =1) and (k< =365) then     begin     n: =k mod 7;     case n of 1: writeln ('понедельник'); 2: writeln ('вторник'); 3: writeln ('среда'); 4: writeln ('четверг); 5: writeln ('пятница'); 6: writeln ('суббота'); 0: writeln ('воскресенье'); end; end else writeln ('неверный ввод'); readln; end. uses crt; var k,n,d: integer; begin clrscr; writeln ('введи с какого дня недели 1 января (1-пон, 2-вт и тд до 7)'); readln (d); writeln ('введи день года от 1 до 365'); readln (k); if (k> =1) and (k< =365) and (d> =1) and (d< 8) then     begin     n: =k mod 7 +d-1;     case n of 1: writeln ('понедельник'); 2: writeln ('вторник'); 3: writeln ('среда'); 4: writeln ('четверг'); 5: writeln ('пятница'); 6: writeln ('суббота'); 0,7: writeln ('воскресенье'); end; end else writeln ('неверный ввод'); readln; end.

Const     n = 10; var     a: array[1..n] of integer;     i,j,m,b,c,p,s: integer; begin randomize; {заполнение и вывод} write('исходный массив: '); for i: = 1 to n do       begin       a[i]: =random(n);       write(' ',a[i]);       end; writeln; {сортировка} p: =0; for i: = 1 to n do       begin       m: =i;       for j: = i+1 to n do               if a[j]< a[m] then m: =j;       if m< > i then             begin             b: =a[m];             a[m]: =a[i];             a[i]: =b;             p: =p+1;             {вывод каждого шага сортировки}             write('перестановка №',p,': ');             for j: = 1 to n do                     write(' ',a[j]);             writeln;             end;       end; writeln; write('отсортированный массив: '); for i: = 1 to n do       write(' ',a[i]); {бинарный поиск} writeln; write('введите число: '); readln(c); m: =n div 2; i: =1; j: =n; s: =0; while (a[m]< > c)and(i< =j) do     begin     if c > a[m] then i: =m+1     else j: =m-1;     s: =s+1;     m: =(i+j) div 2;     end; writeln; if a[m]=c then writeln('в массиве есть данное число') else writeln('в массиве нет данного числа'); writeln('кол-во перестановок за сортировку: ',p); writeln('кол-во сравнений за поиск: ',s); end. примеры: исходный массив: 0 4 5 4 1 2 6 7 0 7 перестановка №1: 0 0 5 4 1 2 6 7 4 7 перестановка №2: 0 0 1 4 5 2 6 7 4 7 перестановка №3: 0 0 1 2 5 4 6 7 4 7 перестановка №4: 0 0 1 2 4 5 6 7 4 7 перестановка №5: 0 0 1 2 4 4 6 7 5 7 перестановка №6: 0 0 1 2 4 4 5 7 6 7 перестановка №7: 0 0 1 2 4 4 5 6 7 7 отсортированный массив: 0 0 1 2 4 4 5 6 7 7 введите число: 3 в массиве нет данного числа кол-во перестановок за сортировку: 7 кол-во сравнений за поиск: 4 исходный массив: 4 4 1 3 4 4 5 0 7 2 перестановка №1: 0 4 1 3 4 4 5 4 7 2 перестановка №2: 0 1 4 3 4 4 5 4 7 2 перестановка №3: 0 1 2 3 4 4 5 4 7 4 перестановка №4: 0 1 2 3 4 4 4 5 7 4 перестановка №5: 0 1 2 3 4 4 4 4 7 5 перестановка №6: 0 1 2 3 4 4 4 4 5 7 отсортированный массив: 0 1 2 3 4 4 4 4 5 7 введите число: 5 в массиве есть данное число кол-во перестановок за сортировку: 6 кол-во сравнений за поиск: 2

1) var a,a1,a2: integer; beginreadln(a); a1: =strtoint(copy(inttostr(a),1,1)); a2: =strtoint(copy(inttostr(a),2,1)); if a1> a2 then write(a1,'> ',a2) elsewrite(a1,'< ',a2); end. 2) var a,a1,a2,a3,a4,s: integer; beginreadln(a); a1: =strtoint(copy(inttostr(a),1,1)); a2: =strtoint(copy(inttostr(a),2,1)); a3: =strtoint(copy(inttostr(a),2,1)); a4: =strtoint(copy(inttostr(a),2,1)); s: =a1+a2+a3+a4; if s mod 3 = 0 then write('сумма цифр ',a,'=',s,' - кратно 3')else write('сумма цифр ',a,'=',s,' - не кратно 3'); end.