Question

Mam napisac program w turbo pascalu na tabliczke mnozenia od 1 do zakres który sama ustalam. Do tego ma mi pokazywac same parzyste a za nieparzyste wstawic "-". Pierwszą część zrobiła czy ktoś mógłby mi pomóc z drugą?

Answer 1

program tabliczka;
var
a,i,j,x: Integer;
begin
writeln('Podaj zakres');
readln(a);
i:=1;
j:=1;
while j<=a do
begin
while i<=a do
begin
write(j,'*',i,'=');
x:=j*i;
if x mod 2<>0 then
writeln('-')
else
writeln(j*i);
i:=i+1;
end;
i:=1;
j:=j+1;
end;
readln;
end.