FpS uzduotis prasau padeti

Padėkit išspresti tokią užduotį

Sudarykite programą, kuri atspausdintų tuos triženklius skaičius, kurių vidurinysis skaitmuo penkiais mažesnis už paskutinį, o pirmasis skaitmuo yra lyginis.

int i;

for (i:=100; i<=999; i++){

if (((i div 100))mod 2==0) and ((((i mod 100) div 10)+5)==(i mod 10)){

print i;

}

}

kazkas panasaus. nepamenu paskalio sintakses.

program trizenklis;
  var i, pirmas, antras, trecias:integer;
begin
  for i:= 100 to 999 do
  begin
	 pirmas:= i div 100;  //Pirmas skaièius
	 antras:= i mod 10;   //Paskutinis skaitmuo
	 trecias:= (i div 10) mod 10; //Vidurinis skaitmuo
		if (pirmas mod 2 = 0) and ( antras - trecias = 5)
		   then writeln(i);
  end;
Readln;
Readln;
end.

Šiek tiek optimalesnė uždavinio sprendimo versija

program skaiciai;
var a:integer;
begin
//nuo 205 nes tai pirmas trizenklis atitinkantis reikalavimus
a:=205;
// iki 850 nes toliau jau nebebus trizenklio kuris atitiktu reikalavimus
while a<850 do
begin
//tikriname ar pirmas trizenklio skaicius lyginis
if ((a div 100)mod 2)=0 then
begin
	//tikriname ar paskutinio ir vidurinio skaitmens skirtumas lygus 5
	if ((a mod 10) -((a div 10)mod 10))=5 then
		writeln(a)
end
else
//kadangi jis nera lyginis tai mes ji tokiu padarome taip sutumpindami ciklo pasikartojima
//pvz jei skaicius yra 300 tai keiciame i 400
	a:=((a div 100)+1)*100;
a:=a+1;
end;
Readln;
end.

Aišku ir šitą būtų galima patobulinti sumažinan ciklo prasukimų skaičių

Aišku ir šitą būtų galima patobulinti sumažinan ciklo prasukimų skaičių

biski nematau prasmes optimizuoti uzdavini devyniem simtam skaiciu persukt ;]

biski nematau prasmes optimizuoti uzdavini devyniem simtam skaiciu persukt ;]

Jo su tokiais mažais skaičiais nėra prasmės. Čia tik taip toks įprotis viską padaryti taip, kad kompui mažiau liktų darbo.

įpročiai įpročiais, bet berods olimpiadose žiūrima ir į kodo optimalumą :)