begin
var c := ReadlnString;
if c.Any(t -> not (t in ['0'..'9'])) then
begin
Print('Ошибка ввода');
exit
end;
var a := c.Select(t -> t.ToDigit).ToArray;
Writeln('a) ', c.Where(t -> t = '9').Count);
Writeln('б) ', a.Where(t -> t = a[0]).Count);
Writeln('в) ', a.Where(t -> t.IsOdd).Count);
Writeln('г) ', a.Where(t -> t < 3).Sum);
Writeln('д) ', a.Where(t -> t.IsEven and (t > 4))
.Aggregate(1, (p, q)-> p * q));
Writeln('е) ', a.Where(t -> (t = 2) or (t = 3)).Count);
end.
Пример1764963253120a) 1б) 2в) 7г) 6д) 36е) 4Примечание: количество цифр в числе практически не ограничено, контроль на ввод "не-цифр" имеется.
cost N = 10;
var a: array[1..N] of integer;
i, s: integer;
begin
s:=0;
for i:=1 to N do begin
readln(a[i]);
If a[i] mod 5 = 0 then
s:= s + a[i];
end;
writeln(s);
end.