Информатика, опубликовано 2018-08-22 22:37:02 by Гость
Помогите срочно пожалуйста!! Написать программу подсчитывающую вол-во цифр в заданном числе.
Ответ оставил Гость
Var
i,a:integer;
ch:set of char;
n:string;
Begin
Write(Введите число );
Readln(n);
ch:=[0..9];
for i:= 1 to length(n) do
if n[i] in ch then a:=a+1;
case a of
1:Write(В числе ,a, цифра);
2..4:Write(В числе ,a, цифры)
else Write(В числе ,a, цифр);
End;
End.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на