Potrebujem radu... – Pascal – Fórum – Programujte.com

Dobry den, som v uuplnych zaciatkoch programovania a potrabujem poradit s 1 programom. Ako by vyzeral takyto program ? 7. Napíšte program, ktorý z daného intervalu <a, b> vypíše všetky čísla deliteľné 3. Dakujem za pomoc.

v případě, že 'a' a 'b' jsou celá čísla, třeba takto:

program interval;
var a,b: integer;
begin
writeln('zadejte cislo a');
read(a);
writeln('zadejte cislo b (vetsi nez a)');
read(b);
while a<b do
begin
if a mod 3 = 0 then write(a,' ');
a:=a+1;
end;
end.

teda měla tam být neostrá nerovnost takže >= místo >

neni skoda ze delate za nekoho domaci ukoly? :D

spis by ho melo napadnout ze ma projit vsechny cely cisla v intervalu a otestovat u kazdeho jestli je delitelne trema
pak najit jiz zminene modulo .. tj zbytek po celociselnem deleni a pokud je zbytek roven nule pak to cislo vypsat

Cyklus "while" je v tomhle případě lepší nahradit cyklem "for".