1) var n,i,p:longint;a:array[1..100]of longint; begin read(n);p:=1; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i] mod 3=0 then p:=p*a[i]; writeln(p); end. 2) var n,i,s,p:longint;a:array[1..100]of longint; begin read(n); p:=1;s:=0; for i:=1 to n do read(a[i]); for i:=1 to n do if a[i]>0 then s:=s+a[i]; for i:=1 to n do if a[i]<0 then p:=p*a[i]; if p>s then writeln('proizvedenie') else if p<s then writeln('summa') else writeln('ravni'); end. 3) var n,f,i,o:longint;a:array[1..100]of longint; begin read(n);f:=0; for i:=1 to n do read(a[i]); for i:=n downto 1 do begin if a[i]<0 then f:=f+1; if f=2 then begin o:=a[i];break;end; end; writeln(o); end.
Хахахаа, я такую программу сам создавал от нефиг делать)) ток во втором мб не нужно в квадрате??? исходник от java прикрепил, вот паскаль var a,b,c,d,x1,x2 :extended; begin readln(a,b,c); d:=(b*b)-(4*a*c); if d<0 then begin write('Korney net!'); end; if d=0 then begin if b<0 then begin b:=b+b+b; x1:=b/(2*a); write(x1); end; if b>0 then begin b:=b-b-b; x1:=b/(2*a); write(x1); end; end; if d>0 then begin if b<0 then begin b:=b+b+b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end; if b>0 then begin b:=b-b-b; x1:=(b-sqrt(d))/(2*a); x2:=(b+sqrt(d))/(2*a); write(x1,x2); end; end; end.
Var A:integer;
Begin
A:=1;
While A<30 do
Begin
Write(A,' ');
A:=A*3;
End;
End.
Результат работы программы:
1 3 9 27