Program variant_5_2; uses crt; var n,i,j:integer; begin clrscr; write('n='); readln(n); for i:=n downto 2 do begin writeln; for j:=i downto 2 do write(j:3); end; end. ===================================================================================================== program varint_5_3; uses crt; var N, i:byte; begin clrscr; for i:=1 to 6 do begin write ('введите N= '); readln (N); if (N>=0) and (N mod 4=0) then writeln ('n делится ',n) else writeln ('n не делится ',n); end; readln; end. ===================================================================================================== program variant_5_1; uses crt; var x, f,a, xn, xk, h: real; begin clrscr; write ('введите xn='); readln(xn); write ('введите xk='); readln(xk); write ('введите a='); readln(a); write ('введите h='); readln(h); x:=xn; while x<=xk do begin if x<1 then f:=1.5*sqr(cos(x)) else if x=1 then f:=1.8*a*x else if x>2 then f:=3*(sin(x)/cos(x)) else f:=(sqr(x-2))+6; writeln(x:6:1,f:10:2); x:=x+h; end; repeat until keypressed; end. ===================================================================================================== Нужна помощь - нужно либо первую либо вторую задачу переделать под оператор repeat и ко всем трем составить блок схемы. Заранее спасибо.
program varint_5_3; uses crt; var N, i:byte; begin clrscr; i:=0; repeat i:=i+1; write ('VV N= '); readln (N); if (N>=0) and (N mod 4=0) then writeln ('n delitsa ',n) else writeln ('n ne delitsa',n); until i>6; readln; end.