Profesja - Forum studentów Informatyki 2010r.

Forum poświęcone różnym zagadnieniom informatyki

  • Nie jesteś zalogowany.
  • Polecamy: Gry

#1 2010-12-04 11:54:01

damo69

Gość

TP zadanie testowe 04.12.2010

Uses crt;
Var a,b,c:integer;
Begin
clrscr;
write('Podaj liczbe a: ');
readln(a);
write('Podaj liczbe b: ');
readln(b);
write('Podaj liczbe c: ');
readln(c);
if (a>b) and (a>c) and (b>c) then
writeln(a,b,c);
if (b>a) and (b>c) and (a>c) then
writeln(b,a,c);
if (c>a) and (c>b) and (a>b) then
writeln(c,a,b);
if (a>b) and (a>c) and (c>b) then
writeln(a,c,b);
if (b>a) and (b>c) and (c>a) then
writeln(b,c,a);
if (c>a) and (c>b) and (b>a) then
writeln(c,b,a);
readln;
end.

Możecie pozmieniać kolejność, albo rozbić na więcej przypadków.

 

Stopka forum

RSS
Powered by PunBB
© Copyright 2002–2008 PunBB
Polityka cookies - Wersja Lo-Fi

[ Generated in 0.055 seconds, 10 queries executed ]


Darmowe Forum | Ciekawe Fora | Darmowe Fora
www.hamar.pun.pl www.transport13.pun.pl www.provet3rans-clan.pun.pl www.szkoladomaniew.pun.pl www.quidditch-marziblack.pun.pl