Question

С клавиатуры запрашивается любое целое число,а затем компьютер печатает таблицу умножения этого числа на числа от 1 до 10. Написать программу на языке Паскаль.

Answer 1

Код (Pascal)

var

 x, i: longint;

begin

   read(x);

   for i := 1 to 10 do

       write(x * i, ' ');

   writeln;

end.

-------------------------

Файл с решением прикреплён.

Answer 2

Для создания программы на языке Паскаль, которая запрашивает у пользователя целое число и выводит таблицу умножения этого числа на числа от 1 до 10, вам понадобится использовать цикл for. Вот как можно это сделать:

pascalCopy code
program MultiplicationTable;

var
  number, result: integer;
  i: integer;

begin
  // Запрашиваем у пользователя целое число
  writeln('Введите целое число: ');
  readln(number);

  // Выводим таблицу умножения для этого числа
  writeln('Таблица умножения для числа ', number, ':');
  for i := 1 to 10 do
  begin
    result := number * i;
    writeln(number, ' * ', i, ' = ', result);
  end;
end.

Скопируйте этот код в среду разработки Паскаля (например, Free Pascal) и запустите программу. После выполнения она попросит вас ввести целое число, а затем выведет таблицу умножения этого числа на числа от 1 до 10.