Создатель языка paskal:
б) Никлаус Вирт
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.
<em><u>Тестовое решение:</u></em>
Введите 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.
<em><u>Тестовое решение:</u></em>
Введите натуральное число:
1234
1
2
3
4
Решение можно представить в виде логического выражения:
A ∧ ( B∨C )
В виде схемы это выглядит так: