Pereiti prie turinio

labai skubiai reikia pagalbos su paskaliu


Rekomenduojami pranešimai

Sveiki, kodel man blogai skaiciuoja ? Ka blogai darau?

Salyga: Apskaičiuoti kiek natūraliųjų skaičių yra intervale [a,g] yra skaičių, kuriuos padalinus iš 4, gaunasi skaičių, kurie baigiasi 2.

 

program Noname0;

Var a, g, s, i:integer;

begin

Read (a, g);

for i:= a to g do

begin

if i div 4 mod 10=2

then s:= s+1

else writeln('s=', s );

end;

read (s);

end.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Kad ten vietoj read write turėtų būti...

 

Susitvarkyk IF, kad nebebūtų išvedimo tame elae ir pačiam gale vietoj read(s) (visiška nesąmonė) atvaizduok writeln(s). Kad neužsidarytų, pridėk dar readln.

 

man is esmes svarbiausia tas if, nes abejoju ar gerai isvis jis....

Nuoroda į pranešimą
Dalintis kituose puslapiuose

program Noname0;
Var a, g, s, i:integer;
begin
Read (a, g);
for i:= a to g do
begin
if i mod 10=2
then s:= s+1;
end;
writeln(s);
readln;
readln;
end.

 

Nereikia div iš 4, užtenka ieškoti liekanos dalinant iš dešimčių, kad sužinotum paskutinį skaitmenį, o visa kita - bloga praktika. Bet ir pats turbūt gera praktika nepasinaudojau, nes paskalio tiek ir tesimokiau kažkada.

Nuoroda į pranešimą
Dalintis kituose puslapiuose

program Noname0;
Var a, g, s, i:integer;
begin
Read (a, g);
for i:= a to g do
begin
if i mod 10=2
then s:= s+1;
end;
writeln(s);
readln;
readln;
end.

 

Nereikia div iš 4, užtenka ieškoti liekanos dalinant iš dešimčių, kad sužinotum paskutinį skaitmenį, o visa kita - bloga praktika. Bet ir pats turbūt gera praktika nepasinaudojau, nes paskalio tiek ir tesimokiau kažkada.

 

Labai labai aciu už pagalba!

Nuoroda į pranešimą
Dalintis kituose puslapiuose

Prisijunkite prie diskusijos

Jūs galite rašyti dabar, o registruotis vėliau. Jeigu turite paskyrą, prisijunkite dabar, kad rašytumėte iš savo paskyros.

Svečias
Parašykite atsakymą...

×   Įdėta kaip raiškusis tekstas.   Atkurti formatavimą

  Only 75 emoji are allowed.

×   Nuorodos turinys įdėtas automatiškai.   Rodyti kaip įprastą nuorodą

×   Jūsų anksčiau įrašytas turinys buvo atkurtas.   Išvalyti redaktorių

×   You cannot paste images directly. Upload or insert images from URL.

Įkraunama...
  • Dabar naršo   0 narių

    Nei vienas registruotas narys šiuo metu nežiūri šio puslapio.

×
×
  • Pasirinkite naujai kuriamo turinio tipą...