// pascalabc.net 3.2, сборка 1407 от 18.03.2017 // внимание! если программа не работает, обновите версию! begin var s1: =readlnstring('первое слово: '); var s2: =readlnstring('второе слово: '); // #1 writeln(' 1) ',s1.length> s2.length? s1: s2); // #2 if s1[1]=s1[2] then writeln(' 2) ',s1); if s2[1]=s2[2] then writeln(' 2) ',s2); // #3 write(' 3) более короткое слово '); // предполагаем, что s1 более короткое. // если это не так, меняем их местами. if s1.length> s2.length then swap(s1,s2); if pos(s1,s2)=0 then write('не'); writeln(' входит в более длиное'); // #4 s1: =s1.tochararray.select((c,i)-> i mod 2< > 0? 'a'+c: c).joinintostring(''); writeln(' 4) ',s1); // #5 writeln(' 5) сумма кодов (в unicode) для длинного слова: ', s2.tochararray.select(c-> integer(ord() end. примеры первое слово: колокольчик однозвучный утомительно звенит второе слово: дно 1) колокольчик однозвучный утомительно звенит 3) более короткое слово входит в более длиное 4) дaно 5) сумма кодов (в unicode) для длинного слова: 42383 первое слово: ссора второе слово: рессора 1) рессора 2) ссора 3) более короткое слово входит в более длиное 4) сaсоaра 5) сумма кодов (в unicode) для длинного слова: 7589
ktv665
08.07.2022
А) 1. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; for i: =0 to round((xk-x0)/h) do begin x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); end; end. 2. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; while x< xk do begin x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); end; end. 3. const x0=0; xk=pi; h=pi/2; var x,y: real; i: integer; begin x: =x0-h; repeat x: =x+h; y: =0.5*x+sqr(sin(x)); writeln(x: 5: 2,' ',y: 6: 4); until x> =xk; end. результат: 0.00 0.00001.57 1.78543.14 1.5708б)var x,y: real; beginreadln(x); y: =(3-sin(2*x))*cos(x/3); writeln('y = ',y: 6: 4); if y< 0 then writeln('функция отрицательна') else if y> 0 then writeln('функция положительна') else writeln('функция = 0'); end.пример: 1.5y = 2.5089функция положительна
не чего не понятно питон