Program do školy - násobilka – Pascal – Fórum – Programujte.com

Zdravím, měl bych udělat program který vygeneruje tabulku " malé násobilky" zadaného násobitele. Násobitle mám omezit číslem 50.

Wrtieln(´Zadej cislo nasobitele´)
Read(A)
B:=A*1
C:=B*2
atd...
a potom
Writeln(´´,A,´*1=´,B,´)
Writeln(´´,A,´*2=´,C,´)

a tak dále.. ale mělo by to být jiným způsobem. Dle mě by to mělo jít příkazem cyklu (for i := 1 TO 50?..) ale nedikážu to nějak zapsat..Poradí mi někdo prosím?
Děkuji

mam pocit ze se to urcite da najit na internetu... neco jako pascal mala nasobilka ...

jinak to neni nic tezkeho... cyklus jak si naznacil ti vygeneruje cisla od 1 do 50... a provede pokazdy nejaky prikaz...

neco jako for i:=1 to 10 do writeln(zadano,'*', i , '=', zadano*i);
na to omezeni musis cislo otestovat pomoci IF

Super :) už jsem na to přišel... snad mi to takto projde :)

program nasobilka;
var a,i: integer;
begin
writeln ('Zadej cislo nasobitele');
readln (a);
if a<50
for i:=1 to 10 do
writeln (b,'*',a,'=',b*a);
end
else Writeln (´Zadejte mensi cislo nez 50´)
readln;
end.

jeste zopakovat zadavani kdyz bude cislo vetsi nez 50 a mensi nez 1 :D

To neasy : Skoro, jenom to trošku pooprav:

program nasobilka;
var a,i: integer;
begin
writeln ('Zadej cislo nasobitele');
readln(a);
if a<50 then
for i:=1 to 10 do
writeln (i,'*',a,'=',i*a)
else Writeln (´Zadejte mensi cislo nez 50´);
readln;
end.

Trochu upravené Mircosoftovo
program nasobilka;
var a , i: longint;
begin
writeln ('Zadej cislo nasobitele');
readln(a);
if a<50 then
for i:=1 to 10 do writeln (i,'*',a,'=',i*a)
else Writeln (´Zadejte mensi cislo nez 50´);
readln;
end.