Question

ПОЖАЛУЙСТА!ПОМОГИТЕ!СРОЧНО!Решить задачи на турбопаскале:1.Дано натуральное число Найти сумму и произведение первых двух чисел.2.Дано n-значное натуральное число. Правда ли что квадрат произведения цифр числа равняется кубу суммы цифр числа.3.Составить программу, которая печатает таблицу умножения и сложения натуральных чисел в десятичной системе счисления.

Answer 1

Program  Kasyanova98_1;
uses crt;
var n,nt,p:integer;
  begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите натуральное число N = ');
  readln(n);
  nt:=n;
  while nt>=10 do
    begin
      p:=nt;
      nt:= nt div 10;
    end;
  writeln('Cумма первых двух цифр числа ',n,' равна ',(p div 10)+(p mod 10));
  writeln('Произведение первых двух цифр числа ',n,' равно ',(p div 10)*(p mod 10));
end.

Program  Kasyanova98_2;
uses crt;
var n,nt,sum,kw,temp:integer;
  begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите натуральное число N = ');
  readln(n);
  nt:=n;
  sum:=0;
  kw:=1;
  while nt>=1 do
    begin
    temp:=nt mod 10;
    sum := sum + temp;
    kw:=kw * temp;
    nt := nt div 10;
  end;
  if kw*kw=sum*sum*sum then
      writeln('Квадрат произведения цифр числа ',n,' равняется кубу суммы его цифр')
    else
writeln('Квадрат произведения цифр числа ',n,' НЕ равняется кубу суммы его цифр');
end.

Program Kasyanova98_3.1;
uses crt;
const n=10;
var
  x,y:integer;
begin
  writeln('********************************************************');
  writeln('*                   ТАБЛИЦА УМНОЖЕНИЯ                  *');
  writeln('********************************************************');
  write('*    * ');
  for y:=1 to n do
    begin
      write(y:2);
      if y<n then write(' | ')
      else      writeln(' * ');
    end;
  writeln('********************************************************');
  for x:=1 to n do
    begin
      write('* ',x:2, ' * ');
      for y:=1 to n do
         begin
          write(x*y:2);
          if y<n then write(' | ')
        end;
        if x*y<100 then writeln(' * ')
                   else writeln('* ');
        if x<10 then writeln('+------------------------------------------------------+')
                else writeln('********************************************************');
    end;
end.

Program Kasyanova98_3.2;
uses crt;
const n=10;
var
  x,y:integer;
begin
  writeln('********************************************************');
  writeln('*                   ТАБЛИЦА СЛОЖЕНИЯ                   *');
  writeln('********************************************************');
  write('*    * ');
  for y:=1 to n do
    begin
      write(y:2);
      if y<n then write(' | ')
      else      writeln(' * ');
    end;
  writeln('********************************************************');
  for x:=1 to n do
    begin
      write('* ',x:2, ' * ');
      for y:=1 to n do
         begin
          write(x+y:2);
          if y<n then write(' | ')
        end;
        if x+y<100 then writeln(' * ')
                   else writeln('* ');
        if x<10 then writeln('+------------------------------------------------------+')
                else writeln('********************************************************');
    end;
end.

Answer 2

Решение задач на турбопаскале

1. Найти сумму и произведение первых двух чисел:

Для нахождения суммы и произведения первых двух чисел необходимо сначала ввести натуральное число, а затем выполнить соответствующие операции. Например, если дано натуральное число 5, то сумма первых двух чисел будет 1 + 2 = 3, а произведение будет 1 * 2 = 2.

2. Проверка равенства квадрата произведения цифр числа и куба суммы цифр числа:

Для проверки данного утверждения необходимо взять n-значное натуральное число, вычислить квадрат произведения его цифр и куб суммы цифр. Затем сравнить полученные значения. Например, для числа 123: - Квадрат произведения цифр: (1*2*3)^2 = 36 - Куб суммы цифр: (1+2+3)^3 = 216 - 36 ≠ 216, поэтому утверждение не верно.

3. Составление программы для печати таблицы умножения и сложения:

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

Пример программы на турбопаскале: ```pascal program MultiplicationTable; var i, j: integer; begin writeln('Multiplication Table:'); for i := 1 to 10 do begin for j := 1 to 10 do write(i * j, ' '); writeln; end;

writeln('Addition Table:'); for i := 1 to 10 do begin for j := 1 to 10 do write(i + j, ' '); writeln; end; end. ```

Этот пример программы напечатает таблицы умножения и сложения натуральных чисел от 1 до 10 в десятичной системе счисления.

Надеюсь, это поможет вам решить ваши задачи на турбопаскале!