Вариант 5
выполнить перевод координат в десятичную систему счисления и отметить
точку на координатной плоскости, приняв за начало отсчёта точку а(10; 50).
правильно сделав перевод и соединив последовательно все точки, получите
рисунок. если можно с полным решением! !

Var       best, m, s,i: integer; begin       best : = 10000000;       for i: = 1 to 3 do begin               write('min sec = ');               readln(m, s);               if best > m * 60 + s then best : = m * 60 + s;       end;             writeln('лучший = ', best div 60, ' min ', best mod 60, ' sec'); end.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

 

 

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

 

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.

первый файл займет 2750/1054 =2,6 = 3 кластера(может быть только целое число кластеров).

второй файл займет 324000/1024 = 307,4 = 308 кластеров.

 

ответ: 3 + 308 кластеров