Free pascal

Reik parasyt programa, kuri is triju skaiciu ivestu skaiciu atrinktu maziausia. Arba parodytu ar jie lygus ar pan.. gal kas raset?

if a<b and b<c then a maziausias ir taip su visais, dar dadedant ligybe

Vieni juokai dar 10kl. tokias nesamones darem ;)

if a<b and b<c then a maziausias ir taip su visais, dar dadedant ligybe

o jeigu b > c ? ;)

tarkim a=2, b = 6, c=4 :)

Bet pagal justucio logika ir reikia rasyti daug IF'u :)

Bet nenukrypkim i sona :D

tai taip ir reikia daryt, nebent kazka su masyvu galima (kai ji mokemes justutiz rukykloje sedejo) ;)

o jeigu a 10 b 9 ir c 9 ? ten daug labai gaunas ir susipainioju ir nzn ka rasyt, neveikia kazko ;)

program Bevardë0;
var a, b, c:integer;
begin
 WriteLn('Iveskite a');
 readln(a);
 WriteLn('Iveskite b');
 readln(b);
 WriteLn('Iveskite c');
 readln(c);
 if a=b
 then if b=c
   then writeln('Skaiciai vienodi')
   else if a<b
		then if a<c
			 then writeln('A maziausias')
			 else if b<a
					 then if b<c
						  then writeln('B maziausias')
						  else if c<a
							   then if c<b
									then writeln('C maziausias');
 Readln;
end.

va kolkas tiek pameginau parasyt ir rodo tik jei vienodus ivedi jei skirtingus nerodo :)

o jeigu a 10 b 9 ir c 9 ? ten daug labai gaunas ir susipainioju ir nzn ka rasyt, neveikia kazko ;)

 

program Bevardë0;
var a, b, c:integer;
begin
 WriteLn('Iveskite a');
 readln(a);
 WriteLn('Iveskite b');
 readln(b);
 WriteLn('Iveskite c');
 readln(c);
 if a=b
 then if b=c
   then writeln('Skaiciai vienodi')
   else if a<b
		then if a<c
			 then writeln('A maziausias')
			 else if b<a
					 then if b<c
						  then writeln('B maziausias')
						  else if c<a
							   then if c<b
									then writeln('C maziausias');
 Readln;
end.

 

va kolkas tiek pameginau parasyt ir rodo tik jei vienodus ivedi jei skirtingus nerodo :)

tavo ifas labai neracionalus gremezdiskas

pakeisk visa savo ifa situo ir turetu veijkti

if (a=<b) and (a=<c) then writeln('maziausias ',a)
	   else if (b=<a) and (b=<c) then witeln('maziausias ',b)
				   else if (c=<a) and (c=<b) then writeln('maziausias ',c);

meta error kad tipo del zenklo > ....

edit:

beto gali but gi ir visi vienodi skaicia, gali but ir du vienodi, ir pan

meta error kad tipo del zenklo > ....

 

edit:

 

beto gali but gi ir visi vienodi skaicia, gali but ir du vienodi, ir pan

nu tai tokiu atveju:

if (a=b) or (a=c) or (b=c) then writeln('negali buti vienodi')

vietoj "then if" rasyk "and", pavyzdziui:

else if a<b

then if a<c

rasyk:

else if (a<b) and (a<c) then...

program Bevardë0;
var a, b, c:integer;
begin
 WriteLn('Iveskite a');
 read(a);
 WriteLn('Iveskite b');
 read(b);
 WriteLn('Iveskite c');
 read(c);
 if (a=b) and (a=c) and (b=c) then writeln('skaiciai vienodi')
   else if (a<b) and (a<c) then writeln('maziausias',a)
	   else if (b<a) and (b<c) then writeln('maziausias',b)
		   else if (c<b) and (c<a) then writeln('maziausias',c)
			   else if (a=b) and (a<c) then writeln('2 skaiciai vienodi ir yra maziausi',a)
				  else if (a=c) and (a<b) then writeln('2 skaiciai vienodi ir yra maziausi',a)
					  else if (b=c) and (b<a) then writeln('2 skaiciai vienodi ir yra maziausi',b);


 Readln;
 Readln;
 end.

Veik bent aju man viskas tik prie read ln negrazu atrpu nepadejau db tingiu taisyt ;)