Malá násobilka – Pascal – Fórum – Programujte.com

Dobrý den, měl bych dotaz ohledně programu na malou násobilku. Můj kod vypadá takto:

program mnasobilka;

uses crt;



var m,cislo,y: integer;

                   k: char;



begin

 ClrScr;

 writeln('Mala nasobilka');

 repeat;

 writeln;

 write('Zadejte cislo: ');

 readln(cislo);

 if cislo > 0 then

  begin

   m := cislo;

   writeln;

   writeln('m,m*2,m*3,m*4,m*5,m*6,m*7,m*8,m*9,m*10);

  end

 else

  writeln('Toto cislo neni prirozene');

  readln;

  writeln('Chcete pokracovat? Y/N ');

  readln(k);

 until (k='n')or(k='N');

end.

ac je to neuveritelne for zvetsuje o 1 automaticky.. (nebo zmensuje kdyz das downto misto to)

vnořením foru a využitím jeho řídící proměnné
místo

   writeln('m,m*2,m*3,m*4,m*5,m*6,m*7,m*8,m*9,m*10);

  for i := 1 to 10 do

    write(m*i);

  writeln;

To retriwr : Myslel jsem že to budě složitější, ale přesto děkuji za pomoc.

Ještě doplním malou drobnost: místo write(m*i); je lepší napsat write(m*i,' '); (číslo a za ním znak "mezera"). Tím dostaneš něco jako 9 18 27 36 45 a ne nečitelný guláš typu 918273645.