Правила форума
Parcount.PASЯзык:
Русский
English
{ Пример программы для функции ParamCount }
begin
if ParamCount = 0 then
WriteLn('В командной строке не заданы параметры!')
else
begin
if ((ParamCount mod 100) >= 11) and
((ParamCount mod 100) <= 19) then
WriteLn(ParamCount, ' параметров')
else
if ((ParamCount mod 10) >= 2) and
((ParamCount mod 10) <= 4) then
WriteLn(ParamCount, ' параметра')
else
if (ParamCount mod 10) = 1 then
WriteLn(ParamCount, ' параметр')
else
WriteLn(ParamCount, ' параметров');
end;
end.
if ParamCount = 0 then
WriteLn('В командной строке не заданы параметры!')
else
begin
if ((ParamCount mod 100) >= 11) and
((ParamCount mod 100) <= 19) then
WriteLn(ParamCount, ' параметров')
else
if ((ParamCount mod 10) >= 2) and
((ParamCount mod 10) <= 4) then
WriteLn(ParamCount, ' параметра')
else
if (ParamCount mod 10) = 1 then
WriteLn(ParamCount, ' параметр')
else
WriteLn(ParamCount, ' параметров');
end;
end.
::
::
::
