Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления

@Nazifa · Регистрация: 21.06.2011

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

Составить программу на Паскале, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления. Заранее большое спасибо

@Artorios · 23.06.2011, 07:43

Pascal

Program tab;
Uses crt;
Var A:array[0..0,0..9] of integer;
    i,j,c:integer;
const n=10;
Begin
WriteLn('Таблица умножения (Пифагора) ');  //эт как таблица Пифагора на тетрадке...
  for i:=1 to n do
  begin
    WriteLn;
    for j:=1 to n do
    begin
      c:=i*j;
      Write(c:3,' ');
    end;
  end;
WriteLn;
Writeln('Таблица сложения : ');
for i:=1 to n do
  begin
    WriteLn;
    for j:=1 to n do
    begin
      c:=i+j;
      Write(i,'+',j,'=',c:2,' ');
    end;
  end;
readLn;
end.

@Nazifa 0 / 0 / 0 Регистрация: 21.06.2011 Сообщений: 7
		1
	Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления 22.06.2011, 13:54. Показов 31532. Ответов 1 Метки нет (Все метки) Составить программу на Паскале, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления. Заранее большое спасибо 0

Опции темы

Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления

Решение