labai skubiai reikia pagalbos su paskaliu

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.

Su IF sakiniu nugrybavai truputį. Su paskaliu nedirbu, todėl negaliu perrašyti teisingai. Tiesiog kam tas else? O pagrindinė bėda konatrukcijoje turbūt.

Su IF sakiniu nugrybavai truputį. Su paskaliu nedirbu, todėl negaliu perrašyti teisingai. Tiesiog kam tas else? O pagrindinė bėda konatrukcijoje turbūt.

Kitaip meta errora

Kitaip meta errora

Turbūt dėl END meta. Pabandyk IF sąlygoje įterpti AND operatorių. O kokius rezultatus spausdina?

Turbūt dėl END meta. Pabandyk IF sąlygoje įterpti AND operatorių. O kokius rezultatus spausdina?

ivedant skaicius 10 20 raso 2

S := 0 parašei? Pastebėjau, lad neapibrėžta.

Kad struktūra pas tave bloga daug kur. Nebepamenu tiksliai paskalio sintaksės, bet prie ko tas

end;

read (s);

end.

read (s);

čia tūrėtų būt readln; berods.

S := 0 parašei? Pastebėjau, lad neapibrėžta.

tada isvis atsakymas gaunas 144 intervale nuo 10 20 :(

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.

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....

Įvedus 10, 30 - atsakymas 3?

raso 2 prie kiekvieno s

Man nepatinka IF sąlyga. Bet paskalio nelabai pamenu, todėl vakarop galiu prisėdęs prie kompiuterio patikrinti pats (dabar telefonu).

Man nepatinka IF sąlyga. Bet paskalio nelabai pamenu, todėl vakarop galiu prisėdęs prie kompiuterio patikrinti pats (dabar telefonu).

Lauksiu, buciau labai dėkinga :)

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.

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!