Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

ПАСКАЛЬ АВС. Помогите, пожалуйста. Задания во вложениях.

Ответ оставил Гость

Procedure pA(n:integer);
var
  i:integer;
begin
  for i:=1 to n do Write(-)
end;

{ тестирование }
var
  n:integer;
begin
  Writeln(Введите N:);
  Readln(n);
  pA(n)
end.

Тестовое решение:
Введите N:
10
----------

procedure pB(n:longint);
var
  i:integer;
  s:string;
begin
  Str(n,s);
  for i:=1 to Length(s) do Writeln(s[i])
end;

{ тестирование }
var
  n:longint;
begin
  Writeln(Введите натуральное число:);
  Readln(n);
  pB(n)
end.

Тестовое решение:
Введите натуральное число:
1234
1
2
3
4