Hogyan programozzak Pascalban? (Bővebben lent. )

Találd ki az algoritmust, akkor már megvan, hogy milyen szerkezetekre van szükséged. Utána már csak fogni kell a kedvenc szerkesztődet és meg kell írni a kódot.

Hol akadtál el?

egész i;

egész max=8000;

ciklus 1=0 től max ig

_ha (i % 7 == 0 )

__akkor ki i;

__újsor

_ha vége

ciklus vége

program feladat;

uses crt;

var i : integer;

begin

clrscr;

for i:=1 to 8000 do

if(i mod 7 = 0) then writeln(i);

readln;

end.

@14:32:

Hát ez csuda hasznos volt. A CRT unitot nagyon fontos behívni a feladat szempontjából, különben nem tudnád törölni a képernyőt... És tényleg ez lenne a híres oszlopos felírás, hogy egyetlen oszlopban egymás alá írod a számokat? Amúgy meg van egy olyan sejtésem, hogy elég volna megkeresni az első héttel osztható számot (melyik lehet az, jaj, vajon melyik?), és onnantól egy REPEAT..UNTIL ciklusban hozzáadogatni hetet, míg el nem éred a nyolcezret. Persze ez nem kihívás sem a gépnek, sem a programozónak.