
08.11.2008, 23:53
|
|
Постоянный
Регистрация: 04.04.2008
Сообщений: 527
С нами:
9526747
Репутация:
272
|
|
Еще вопрос, вот исходник из учебника, не пойму, причем тут a и b? read(a,b);
Line(a,b);
Код:
program editor;
var x : integer;
procedure Line (ch:char; ln:integer);
var symbol : integer;
begin
write('{');
for symbol:=1 to ln do
write('ch');
writeln('}');
end;
begin
read(a,b);
Line(a,b);
end.
|
|
|