Подсчитать общее количество цифр и количество единиц - Pascal

Формулировка задачи:

Вводится текст. Среди символов этого текста имеется несколько цифр. Подсчитать общее количество цифр и количество единиц в строке. Если в тексте нет единиц , выдать соответствующее сообщение

Код к задаче: «Подсчитать общее количество цифр и количество единиц - Pascal»

textual
type
digits = set of char;
var d:digits;
s: string;
i,k,n:integer;
begin
readln(s);
d:=['0'..'9'];
k:=0;
n:=0;
for i:=1 to length(s) do
    begin
    if s[i] in d then
        begin
        inc(n);
        if s[i] = '1' then
            inc(k);
        end;
    end;
writeln('Количество цифр: ', n);
if k = 0 then
    writeln('В тексте нет единиц ')
else
    writeln('количество единиц: ',k);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

15   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ