Срочно плиз прога на паскале текст начинается с ненулевой цифры, за которой следуют только буквы. определить, равно ли количество букв в тексте числовому значению первой цифры в тексте. 

Срочно плиз прога на паскале текст начинается с ненулевой цифры, за которой следуют только буквы. определить, равно ли количество букв в тексте числовому значению первой цифры в тексте. 
Гость
Ответ(ы) на вопрос:
Гость
var s : string; k,f : longint; begin   readln(s);   Val(s[1],k,f);   if f<>0 then writeln('Некоректно введена строка')   else if length(s)-1=k then writeln('Равно')        else writeln('Неравно'); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы