Question

срочно плиз

прога на паскале

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

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

Answer 1

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.