Раз:
program Project2;
{$APPTYPE CONSOLE}
USES
SysUtils;
VAR
S : string;
I,
count : integer;
BEGIN
S :='';
for I := 1 to 100 do
S := S + IntToStr(I);
count := 0;
for I := 1 to Length(S) do
if S[i]='9'
then Inc(Count);
WriteLn(Count);
Readln;
END.
Два:
(((1 to: 100)inject: ''into: [:a :b | a,b displayString]) reject: [:each
(
Read more... )