Пешеходу нужно было пройти 27 км.первые 3 ч он двигался со скоростью 5км/ч , а оставшуюся часть пути- со скоростью 4км/ч.сколько всего времени был в пути пешеход?

3×5=15 км 27-15=12км 12÷4=3ч 3ч+3ч=6часов

6часов, так как он пройдет ещё 3 часа в пути!

                                            написано на паскале! 2) program fofgogjoj; const nmax=100; var m: array[1..nmax] of integer;     n,i,j,k: byte;     a,b,x: integer; begin randomize; repeat  write('размер массива до ',nmax div 3,' n='); readln(n); until n in [1..nmax div 3]; writeln('исходный массив: '); for i: =1 to n do   beginm[i]: =random(50);   write(m[i],' ');   end; writeln; writeln; write('введите число для вставки перед a='); readln(a); i: =1; k: =0; while i< =n do   beginif m[i]> a then     begin     n: =n+1;     k: =1;     for j: =n downto i+1 do     m[j]: =m[j-1];     m[i]: =a;     i: =i+2;     end   else i: =i+1;   end; if k=0 then writeln('элементов больше ',a,' нет') else   begin   writeln('массив после вставки числа ',a,' перед большими ',a);   for i: =1 to n do   write(m[i],' ');   writeln;   writeln;   write('введите число для вставки после b=');   readln(b);   i: =1; k: =0;   while i< =n do   if m[i]< b then     begin     n: =n+1;     k: =1;     for j: =n downto i+2 do     m[j]: =m[j-1];     m[i+1]: =b;     i: =i+2;     end   else i: =i+1;   if k=0 then writeln('элементов меньше ',b,' нет')   else     begin     writeln('массив после вставки числа ',b,' после меньших ',b);     for i: =1 to n do     write(m[i],' ');     end;   end; readln end.

Уберите char. после begin не ставится точка с запятой. в else не нужна точка с запятой, если там один оператор. после of точка с запятой не ставится. в перечне значений case не нужно =. вывод по ходу программы не удобный. в последнем выводе выводите переменные просто как буквы, это ошибка. вот, исправил основные ошибки. program abc; var a,b: integer; begin writeln('введите количество десятков лет'); readln(a); case a of 1: write('десять'); 2: write('двадцать'); 3: write('тридцать'); 4: write('сорок'); 5: write('пятьдесят'); 6: write('шестьдесят'); 7: write('семьдесят'); 8: write('восемьдесят'); 9: write('девяносто'); else write('число введено неверно') end; writeln('введите количество едениц лет'); readln(b); case b of 1: write('один'); 2: write('два'); 3: write('три'); 4: write('четыре'); 5: write('пять'); 6: write('шесть'); 7: write('семь'); 8: write('восемь'); 9: write('девять'); else write('число введено') end; write(a, b, ' лет'); end.