Parašė IGEN· 2011 Lap. 28 16:11:39
#11
Užduotis:
Duodami trys skaičiai a, b, c ir reikia spauzdinti jų vidurinį skaičių.
Pavyzdžiui: 162, 123, 984; Atsakymas = 162, nes jis vidurinis.
Esu garantuotas, kad programa sumažinti 20x kartų.
program Noname4;
var sk1, sk2, sk3, did, maz, i: integer;
begin
Read(sk1,sk2,sk3);
for i:= 1 to 1 do
begin
if (sk1 - sk2) or (sk1 - sk3) > 0 then
did:= sk1
else
if (sk2 - sk1) or (sk2 - sk3) > 0 then
did:= sk2
else
if (sk3 - sk1) or (sk3 - sk2) > 0 then
did:= sk3;
Writeln('//////////');
Writeln(did);
if (sk1 - sk2) and (sk1 - sk3) < 0 then
maz:= sk1
else
if (sk2 - sk1) and (sk2 - sk3) < 0 then
maz:= sk2
else
if (sk3 - sk1) and (sk3 - sk2) < 0 then
maz:= sk3;
Writeln(maz);
Writeln('//////////');
end;
if (sk1 > maz) and (sk1 < did)
then write(sk1)
else
if (sk2 > maz) and (sk2 < did)
then write(sk2)
else
if (sk3 > maz) and (sk3 < did)
then write(sk3);
Read;
end.