Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  tabliczka
Language: PASCAL
Code:
program tabliczka;
uses crt;
var a,b:byte;
    c,d:integer;
    x:array[1..100,1..100] of real;
begin
clrscr;
writeln('Program Tabliczka Mnozenia');
writeln('');
writeln('');
writeln('Podaj w jakim zakresie chcesz mnozyc');
write('O˜ x= ');
readln(c);
write('O˜ y= ');
readln(d);
writeln('');
writeln('');
for a:=1 to c do
begin
for b:=1 to d do
write(a*b);
end;
readln;
end.

Comments: