Прога на паскале текст начинается с ненулевой цифры, за которой следуют только буквы. определить, равно ли количество букв в тексте числовому значению первой цифры в тексте.
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.
Будь-яка інформація передається повідомленнями. Обмін даними також здійснюється між тваринами і навіть рослинами. Так наприклад робочі бджоли, після того як зберуть багато нектару і пилок, до вулика вони повертаються, орієнтуючись за сонцем . Повернувшись, вони повідомляють іншим бджолам не тільки про відстань, на якій знаходиться корм, але передусім про його положення щодо сонця. За до спеціального кругового танцю бджоли розповідають, наприклад, що джерело нектару знаходиться на відстані до 100 м від вулика. Якщо ж джерело знаходиться далі, ніж за 100 м, то бджола виписує фігуру, подібну до літери „фіта" старого кириличного алфавіту. Рухаючися по середній паличці „фіти", бджола виляє черевцем. Як виявилось, рослини активно обмінюються інформацією між собою. Гриби використовуються рослинами як система раннього сповіщення про атаки шкідників. Коли одна рослина вражається тлею, вона повідомляє про це сусідів за системою "грибного зв'язку". Цікавою є поведінка у павуків. Якщо вони дуже швидко плетуть павутиння, то це віщуває про похолодання. Якщо ми побачили, що ластівки низько літають над землею слід знати, що вони повідомляють про негоду.
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.