1. var x,a,s: real; i: integer; begin write('x = '); readln(x); a: =x; s: =x; i: =1; while i< 11 do begin i: =i+2; a: =x*x*a; s: =a/i; end; writeln('s = ',s); end. 2. var x,a,s: real; i: integer; begin write('x = '); readln(x); a: =x; s: =x; i: =1; repeat i: =i+2; a: =x*x*a; s: =a/i; until i=11; writeln('s = ',s); end. 3. var x,a,s: real; i: integer; begin write('x = '); readln(x); a: =x; s: =x; for i: =1 to 11 div 2 do begin a: =x*x*a; s: =a/(2*i+1); end; writeln('s = ',s); end. пример: x = 3 s = 16104.2727272727
Спасибо
Ответ дал: Гость
укрытся одеялом и лечь спать, и пить лекартва и остаться дома
Ответ дал: Гость
паскаль
откомпилирован в: pascal abc
program z1; uses crt; var s: string; c: char; i: integer; begin write(' vvedite strocy: '); readln(s); writeln(); write(' vvedite sivol dl poiska: '); readln(c); writeln(); for i : = 1 to length(s) do if s[i] = c then // begin writeln(' simvol prinadlech stroce = ', s); break; end; if s[i] < > c then writeln(' simvola net v stroke = ', s); end.
Популярные вопросы