Написать программу, в которой пользователь выбирает одну из предметных областей: или . если выбрана -компьютер по порядку задает три примера на вычисление (например: 4+3= если выбрана -компьютер спрашивает столицы трех государств. компьютер проверяет ответы на правильность и в конце выводит оценку на экран: 5-если не было ошибок, 4-одна ошибка, 3-две ошибки, 2-если все ответы неверные. , заранее .

Var   mcity: array [1..10] of string : = ('москва', 'берлин', 'париж', 'лондон', 'рим',       'мадрид', 'стокгольм', 'берн', 'вена', 'афины');   mgov: array[1..10] of string : = ('россия', 'германия', 'франция',       'великобритания', 'италия', 'испания', 'швеция', 'швейцария', 'австрия', 'греция');   mops: array[1..4] of char : = ('+', '-', '*', '/');   p, i, n, a, b, c, d, k: integer;   op: char;   s: string; begin   write('выберите предмет: 1- , 2- --> ');   readln(p);   if (p < 1) or (p > 2) then writeln('неверный выбор, работа завершена')   else begin       randomize;       k : = 0;       if p = 1 then { тестируем }           for i : = 1 to 3 do           begin               op : = mops[random(4) + 1];               case op of                   '+':                       begin                           a : = random(50) + 1; b : = random(50) + 1;                           c : = a + b; write(a, ' + ', b, ' = '); readln(d)                       end;                   '-':                       begin                           a : = random(99) + 1; b : = random(a) + 1;                           c : = a - b; write(a, ' - ', b, ' = '); readln(d)                       end;                   '*':                       begin                           a : = random(9) + 1; b : = random(9) + 1;                           c : = a * b; write(a, ' x ', b, ' = '); readln(d) end;               else begin                       c : = random(9) + 1; b : = random(9) + 1; a : = b * c;                       write(a, ' : ', b, ' = '); readln(d)                   end               end;               if c = d then writeln('верно')               else begin writeln('неверно'); k : = k + 1 end           end       else { тестируем }           for i : = 1 to 3 do           begin               write('столица государства ');               n : = random(10) + 1;               write(mgov[n], ' - '); readln(s);               {               на всякий случай преобразуем ответ, записав               первую букву в верхнем регистре, прочие - в нижнем               }               s : = lowercase(s); s[1] : = uppercase(s[1]);               if s = mcity[n] then writeln('верно')               else begin writeln('неверно'); k : = k + 1 end           end;       { вывод результатов }       write('ваша отметка- ');       case k of           0: write('5');           1: write('4');           2: write('3');       else write('2')       end   end end. тестовые решения: выберите предмет: 1- , 2- --> 1 29 + 32 = 61 верно 28 - 10 = 18 верно 6 x 6 = 35 неверно ваша отметка- 4 выберите предмет: 1- , 2- --> 2 столица государства испания - мадрид верно столица государства греция - афины верно столица государства великобритания - лондон верно ваша отметка- 5

Var a,b,c,z,x,h,count: integer; q,w,e,r,t,y,k: string; begin a: =99; b: =81; c: =63; q: ='берлин'; w: ='москва'; e: ='бразилиа'; writeln('выбери предмет'); writeln(' или '); read(k); case k of '' : begin readln; write('столица германии это '); read(r); readln; writeln; write('столица россии это '); read(t); readln; writeln; write('столица бразилии это '); read(y); readln; writeln; end; '' : begin write('11*9='); read(z); writeln; write('9*9='); read(x); writeln; write('7*9='); read(h); writeln; end; end; if q=r then count: =count+1; if w=t then count: =count+1; if e=y then count: =count+1; if a=z then count: =count+1; if b=x then count: =count+1; if c=h then count: =count+1; if count=0 then writeln('твоя оценка по предмету ',k,' это только 2'); if count=1 then writeln('твоя оценка по предмету ',k,' это только 3'); if count=2 then writeln('твоя оценка по предмету ',k,' это только 4'); if count=3 then writeln('твоя оценка по предмету ',k,' это только 5'); end.

Program array2d; var       v_range, v_neg, i, j, n: integer;       array: array of array of integer;       i_range, i_neg: array[1..2] of integer; begin randomize; write('введіть n: '); readln(n); setlength(array, n, n); write('введіть а та b: ); readln(a, b); for i: = 1 to n do       for j: = 1 to n do           array(i, j) : = random(100); for i: = 1 to n do       for j: = 1 to n do       begin           if array(i, j) in a..b then           begin                 if assigned(v_neg) then                     break; {перевірка, чи є негативне значення знайденим}                 v_range : = array(i, j);                 i_range[1] : = i;                 i_range[2] : = j;           end;           if array(i, j) < 0 then           begin                 if assigned(v_range) then                     break;                 v_neg : = array(i, j);                 i_neg[1] : = 1;                 i_neg[2] : = 2;           end;       end; if assigned(v_range) and assigned(v_neg) then begin       array(i_range[1], i_range[2]) : = v_neg;       array(i_neg[1], i_neg[2]) : = v_range; end; writeln('виконано.'); end.