const {убраны лишние описатели - чистая косметика} a = 2.12; b = 7.45; h = 0.34;
var x, f1, f2, y, s: real; i, n: integer; {описание, необходимое для цикла}
begin { x := a; этот оператор не нужен } s := 0; n := Trunc((b - a) / h)+1; {стандартная формула числа повторений цикла } for i := 1 to n do { Заголовок цикла } begin {начало блока для выполнения в цикле } x := a + (i - 1) * h; { перенесено из конца цикла } f1 := 3 * ln(exp(1 / 5) * ln(sin(x) + sqr(x))); f2 := ((2 * x + 1) / (x * x * x * x * x)); y := f1 / f2; s := s + y; end; {конец блока для выполнения в цикле } Writeln('S=', s:10:5); end.
Program z1; var ar: array of integer; f, l, i, N: integer; begin readln(N); setlength(ar, N+1); for i:=1 to N do read(ar[i]); f:=-1; for i:=1 to N do begin if ar[i]<0 then begin f:=i; break; end; end; if f>0 then begin for i:=N downto 1 do begin if ar[i]<0 then begin l:=i; break; end; end; write(f,' ', l); end else write('No'); end.
program z2; var ar: array of integer; i, N: integer; otv: boolean; begin readln(N); setlength(ar, N+1); for i:=1 to N do read(ar[i]); for i:=1 to N div 2+1 do begin if ar[i]<>ar[N-i+1] then begin otv:=true; break; end; end; if otv=true then write('No') else write('Yes');end.
Когдв ты задаешь действие своему персонажиму и т.р. и Повторяется одно и тоде действие (я могу ошибатся сорян)
Объяснение: