Free Pascal for ciklus alkalmazásával hogyan kelmegoldani az alábbi feladatot?

Öhm... ebben mi a nehéz?

Ez egy egyszerű "for" ciklus. Pl.

for i := 1 to 20 do ......

majd a ciklusmagban kiíratod az "i" változó aktuális értékét, az egyéb szöveges részeket (szorzásjel, egyenlőségjel, szóközök), az előzőleg bekért számot, illetve az eredményt.

[link]

4. fejezetben adatok bekérését, 6. fejezetben a ciklusokat találod, - mindegyik fejezet végén vannak példaprogramok is.

Bszki, te a szkmád alapjait nem tudod, hogy kiírtad így ezt a kérdést.

Melyik vidéki főiskolán ez a színvonal? :)))))

3:

Ez nem főiskolai feladat.

A segítséget meg is kaptad az első hozzászólótól. A ciklusváltozó (i) lesz a szorzód, a bevitt szám pedig a szorzandó.

const TAB = #9;

var i,j: byte;

read(j);

For i := 1 to 20 do

begin

writeln(TAB,i,'x',j,'=',i*j);

end.

𝘌𝘯𝘯𝘺𝘪𝘳𝘦 felszínesen? Tessék, pirulj:

var i, n : integer;

begin

      Write('Melyik szám szorzótábláját írjam ki 1-20ig? ');

      ReadLn(n);

      for I := 1 to 20 do WriteLn(i, ' * ', n, ' = ', i * n);

end.

for 1 To 20 Do

helyett

For 20 DownTo 1 Do