Программа: Сложная таблица умножения

Задача: Ввести число, и построить таблицу умножения до введенного числа. Именно таблицу!

PROGRAM table_umnog;
	var i,a,n,k :integer;
BEGIN
	WriteLn();
	ReadLn(n);
	Write('_');
	for i:=2 to 9 do Write(' |',i);
	WriteLn();
	for i:=2 to n do
	  begin
		for k:=1 to 9 do
		  begin
			a:=k*i;
			if k >= 9
			then WriteLn(a,'|')
			else Write(a,'|')
		  end;
	  end;
END.

Просмотрело: 2223

Возможно, Вы искали: