Pascalis, Ciklas cikle

Parašykite sakinių seka, pagal kurią galima rasti, kiek yra 3ženklių, natūrinių skaičių, kurių vidurinysis skaitmuo lygus pirmojo ir trečiojo skaitmenų sumai.

Help ;) čia iš ciklo cikle temos :)

Jo buvo šitas ir man atsimena išsprendžiau, pabandysiu paieškot sprendimo .

as tai daryciau taip bet nebepamenu ar tai ciklas cikle ;)

program ciklas;

var i, a, b, c : longint;

begin

for i := 100 to 999 do

begin

a := i div 100;

b := i mod 100 div 10;

c := i mod 10;

if b = a + c

then writeln (i);

end;

end.

parasyk jei tinka

as tai daryciau taip bet nebepamenu ar tai ciklas cikle ;)

 

program ciklas;

var i, a, b, c : longint;

begin

for i := 100 to 999 do

begin

a := i div 100;

b := i mod 100 div 10;

c := i mod 10;

if b = a + c

then writeln (i);

end;

end.

 

parasyk jei tinka

Bet jam kaip supratau reikia ne tuos skaičius surašyti, o jų kiekį rasti todėl eilutę then writeln (i); reiktų pakeisti į tarkim

sk :=sk+1 O TIK VĖLIAU writeln('triženklų natūrinių skaičių yra',sk)

Bet jam kaip supratau reikia ne tuos skaičius surašyti, o jų kiekį rasti todėl eilutę then writeln (i); reiktų pakeisti į tarkim

sk :=sk+1 O TIK VĖLIAU writeln('triženklų natūrinių skaičių yra',sk)

na tada taip...

program ciklas;

var i, a, b, c, s : longint;

begin

s := 0;

for i := 100 to 999 do

begin

a := i div 100;

b := i mod 100 div 10;

c := i mod 10;

if b = a + c

then s := s + 1;

end;

writeln ('tokių skaičių yra:', s : 4)

end.