вывода на экран таблицы

@Юлляха · Регистрация: 07.06.2011

Author24 — интернет-сервис помощи студентам

Составить программу заполнения и вывода на экран таблицы Пифагора (умножения).

@lamed · 20.06.2011, 12:59

Pascal

{ Составить программу заполнения и вывода на экран таблицы Пифагора (умножения). }
uses
  crt;
var
  i, j: integer;
  n: integer;
begin
  write('n=');
  readln(n);
  clrscr;
  
  write(' ':4);
  for j:= 1 to n do write(j:4);
  writeln;
  for i:= 1 to n do
    begin
      write(i:4);
      for j:= 1 to n do write(i*j:4);
      writeln;
    end;
  readln;
end.

@Просто лис · 20.06.2011, 13:02

Pascal

Var i,j:shortint;
begin
For i:=1 to 9 do
begin
for j:=1 to 9 do
Writeln(i,'*',j,'=',i*j);
Writeln;
end;
readln;
end.

@Юлляха 0 / 0 / 0 Регистрация: 07.06.2011 Сообщений: 36
		1
	вывода на экран таблицы 20.06.2011, 12:54. Показов 1266. Ответов 2 Метки нет (Все метки) Составить программу заполнения и вывода на экран таблицы Пифагора (умножения). 0

	20.06.2011, 13:02

вывода на экран таблицы

Решение