Задание 1. Сколько времени понадобится школьнику для набора текста рассказа вручную, если исходный текст напечатан на 10 листах, на каждом листе помещается 40 строк, в каждой строке в среднем 70 знаков и скорость набора составляет 80 символов в минуту? ответ введите в числовой форме, в минутах.
У меня получилось 5.833333333333333

Задание 2.

Сколько времени понадобится школьнику для распознания печатного текста, если текст напечатан на 10 листах, время
сканирования одного листа составляет 30 секунд, а время для преобразования одной страницы из графического
изображения в текстовый формат – 60 секунд? Временем для смены листов в сканере пренебрегаем. ответ введите в
числовом формате, в минутах.
У меня получилось 15.
Задаю вопрос с целью проверки, просто в своём ответе не уверен, своё решение если можно приводите с полным решением. Заранее :с

в пятиричной системе каждый следйющий разряд учеличивает число в 5 раз. раз приписали два разряда, получаем: 5 * 5 = 25 

число увеличилось в 25 раз.

например, число 12 в пятиричной системе равно числу 7 у десятичной.

привисываем два нуля: 1200 в пятеричной равно числу 175 в десятичной.

175 : 7 = 25.

революция 1917 года и великая отечественная война (1941-1945)

1)

var

a: array [1..5,1..10] of integer;

i,j,p: integer;

begin

for i: =1 to 5 do 

begin

for j: =1 to 10 do

begin

a[i,j]: =random(50)+1;

write(a[i,j]: 3);

end;

writeln;

end;

writeln('меняем 1 и последнюю строки');

for j: =1 to 10 do

begin

p: =a[1,j];

a[1,j]: =a[5,j];

a[5,j]: =p;

end;

for i: =1 to 5 do 

begin

for j: =1 to 10 do

write(a[i,j]: 3);

writeln;

end;

end.

2)

var a: array [1..5, 1..10] of integer; i, j: integer; p: real;

begin for i : = 1 to 5 do begin for j : = 1 to 10 do begin a[i, j] : = random(50) + 1; write(a[i, j]: 3); end; writeln; end; writeln('произведения элементов строк'); for i : = 1 to 5 do begin p : = 1; for j : = 1 to 10 do p : = p * a[i, j]; writeln(p: 25: 0); end; end.

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.