Prasau pagalbos su FPS

Padekit atsakyti i siuos klausmus.

1.

http://www.part.lt/perziura/daca0334ec6b69...c3d9309b672.JPG

2.

http://www.part.lt/perziura/142046b2c15028...4cca501b688.JPG

3.atlikus sakiny

if a>b then a:=a*b

else b:=a*b

gautos sitokios kintamuju a ir b reiksmes: a=20,b=4.kokios galejo but siu kintamuju reiksmes,pries atliekant salygini sakini?

taigi į fps nusikopijuoji tą kodą ir įsivykdai. Gausi atsakymus.

taigi į fps nusikopijuoji tą kodą ir įsivykdai. Gausi atsakymus.

Rasau, bet klaidas man meta.

program Noname0;
var m,n: integer;
begin
readln(m, n);
if m<n then m:=n-3;
if m>n then n:=m-3
	else m:=m+1;
writeln('m = ', m, ' n = ', n);
readln;
end.

ats: m = 9 n = 6;

program Noname1;
var a, b, c: real;
begin
a:=1; b:=9; c:=5;
if a+b>c then c:=b else c:=a;
if a+c<b then b:=0;
if c<b then a:=a-b else a:=a-b;
writeln('a=',a:3:1, ' b=',b:4:1, ' c=', c:2);
end.

ats: a=-8.0 b= 9.0 c= 9.0E+000

Ps. tokius mintinai reikia sprest ;)

3.atlikus sakiny

if a>b then a:=a*b

else b:=a*b

gautos sitokios kintamuju a ir b reiksmes: a=20,b=4.kokios galejo but siu kintamuju reiksmes,pries atliekant salygini sakini?

a=5

b=4

Didelius aciu nes tik 2 pazimius turiu 2 ir 2 ;)