Программирование линейных алгоритмов. Урок 2 Определи значение радиуса круга, если длина окружности равна 31,4. r=L/2*pi 3 4 Сл 5 6 е Назад В Проверить

// pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   writeln(s.inverse) end. пример я пишу программу на языке паскаль ьлаксап екызя ан уммаргорп ушип я // pascalabc.net 3.2, сборка 1379 от 21.01.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring('введите строку: ');   write('введите два символа слитно для сравнения их частоты: ');   var ab: string;   readln(ab);   var a: =ab[1];   var b: =ab[2];   var ka: =0;   var kb: =0;   for var i: =1 to s.length do       if s[i]=a then ka+=1       else if s[i]=b then kb+=1;   if ka> kb then writeln('символ ',a,' встречается чаще, чем ',b)   else       if ka< kb then writeln('символ ',a,' встречается реже, чем ',b)       else           if ka< > 0 then writeln('символы ',a,' и ',b,' встречается одинаково')           else writeln('символы ',a,' и ',b,' отсутствуют') end. пример введите строку: а роза упала на лапу азора введите два символа слитно для сравнения их частоты: ао символ а встречается чаще, чем о