Question

ПОМОГИТЕ ПАСКАЛЬ Составить ФУНКЦИЮ, которая печатает на экране N звездочек. N - число, которое вводится с клавиатуры.

Answer 1

Procedure pechat(n: longint);
var
i: longint;
begin
for i := 1 to n do
write('*');
end;

var
N: longint;
begin
readLn(N);
pechat(N);
end.

Answer 2

Конечно! Вот простой пример программы на Pascal, которая запрашивает у пользователя число N и затем печатает N звездочек на экране:

pascalCopy code
program PrintStars;

var
  N, i: Integer;

begin
  Write('Введите число N: ');
  Readln(N);

  if N > 0 then
  begin
    for i := 1 to N do
      Write('*');
    Writeln; // Переход на новую строку после печати звездочек
  end
  else
    Writeln('Число N должно быть больше нуля.');

  Readln; // Пауза перед закрытием окна
end.

Пользователь будет приглашен ввести число N, и программа напечатает N звездочек на экране. Если N не положительное (меньше или равно нулю), программа выведет сообщение об ошибке.

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