с задаче Двум классам поручено убрать поле площадью S гектаров. В каждом количество учеников N1, N2, соответственно. Составь программу, определяющую, какую площадь нужно убрать каждому классам. Зделать в Паскале
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 S,N1,N2 : integer;
begin
write('Введите площать поля: ');
readln(S);
writeln('Введите кол-во учеников:');
write(' в первом классе : ');
readln(N1);
write(' во втором классе : ');
readln(N2);
writeln();
writeln('Первому классу необходимо убрать площадь ', (S-N1*(S/(N1+N2;
writeln('Второму классу необходимо убрать площадь ', (S-N2*(S/(N1+N2;
end.