Друге і четверте речення.
Var
a : array ['a'..'z'] of integer;
c : char;
begin
for c := 'a' to 'z' do
a[c] := 0;
read(c);
while c <> '.' do
begin
if (c >= 'a') and (c <= 'z') then
a[c] := a[c] + 1;
read(c)
end;
for c := 'a' to 'z' do
if a[c] <> 0 then
writeln(c,a[c])
<span>end.</span>
47 Кб = 48128 Байт
2 Мб = 2097152 Байт
30 Кб = 245760 Бит
begin
var a := SeqWhile(5, x -> x + 5, x -> x <= 90).ToArray;
a.Println;
end.