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
Спасибо
Ответ дал: Гость
Uses wincrt; var n : integer; i : byte; begin write('sekund : '); readln(n); i : = n div 60; writeln('minut : ',i); end.
Ответ дал: Гость
program ttt; var i,j,a,b,c: integer; beginreadln(a); readln(b); readln(c); if (a> b) then if (a> c) then begin write(a); if (b> c) then begin write(b); write(c) end; else begin write(c); write(b); endend; elseif (b> c) then begin write (b); if(a> c)then begin write(a); write(c); end; else begin write(c); write(a); end; end; else begin write(c); if(a> b) then begin write(a); write(b)end; else begin write(b); write(a); end; end; end; неоптимальный, но понятный алгоритм.а в другом случае можноо оптимизировать.. как- подумай -; )
Популярные вопросы