Помогите с задачей (Pascal)

[Mallossy]

\\Спасибо FOSCO

[(D)_(o)_(C)]

LOL

[Mallossy]

up

[Innk]

Mallossy

ну ты хоть напиши формулы какие там по физике, как вообще это решать...

или с этим тоже проблемы - тогда сначала тему создай решите задачу по физике )))))

[Mallossy]

ап

[FOSCO]

как то так *08

1

program zad1;

const

i=1;

var

r1,r2,r3,u1,u2,u3:integer;

begin

write('vvedite R1:');readln(r1);

write('vvedite R2:');readln(r2);

write('vvedite R3:');readln(r3);

if (r1<0) or (r2<0) or (r3<0) then writeln('nekorektnue dannue!')

else

begin

u1:=i*r1;

u2:=i*r2;

u3:=i*r3;

writeln;

writeln('pri I ravnoi=',i,' u1=',u1,' u2=',u2,' u3=',u3);

end;

readln;

end.

2

program zad2;

var

t1,t2,m1,m2:integer;

p1,p2:real;

begin

writeln('1-brigata:');

write('vremya rabotu:');readln(t1);

write('pokrasili m^2:');readln(m1);

writeln('2-brigata:');

write('vremya rabotu:');readln(t2);

write('pokrasili m^2:');readln(m2);

p1:=m1/t1;

p2:=m2/t2;

if p1=p2 then writeln('proizvod ravnu. ',p1,'m^2/v chas');

if p1>p2 then writeln('proizvod vushe 1brigatu na ',(p1-p2):4:2,' m^2 v chas')

else writeln('proizvod vushe 2brigatu na',(p2-p1):4:2,' m^2 v chas');

readln;

end.