Задача 9 класса

[Саня Гантимуров]

Помогите плиз нужно решить задачи а вот и они
Дано число от 1 до 999. В зависимости от количества знаков надо вывести либо "однозначное число",либо"Двузначное число" либо "Трехзначное число"
Пример входных данных 256
пример выходных данных трехзначное число
2.Вы положили в банк 10000 руб. В конце каждого года размер вклада увеличивается на n процентов. Через сколько лет у вас будет 12000 руб.
пример входных данных 7
пример выходных данных 3
3.Напишите программу которая преобразует слова оканчивающиеся на -онок и -енок, в множественном числе (мышонок-мышата, цыплёнок-цыплята и т.д.). Предусмотрите исключения из правил ребенок-дети звонок-звонки жаворонок-жаворонки

[Базиля]

А где ваши попытки решения?
Пора уже в конце концов узреть, что это не решебник задач онлайн. Задавайте вопросы по решению, при этом приложив свои исходники к условию. Вы тем самым покажете другим, что у вас есть желание разобраться в задачах, а у других появится желание помочь вам.
Хоть задачи и легкие (да даже не важен уровень сложности задач, дело то вовсе не в этом), помогать нет желания, честно.
P.S. Хотя сколько об этом не тверди, все возвращается обратно на круги своя, будто это так и должно быть Я все сказал.
P.P.S. Прошу прощения у модератора за флуд.

[VIK_aka_TOR]

первое:
либо делишь целочисленно на 10, считаешь покуда введенное число не станет меньше нуля к примеру.. или меньше 10.. или же второй вариант решение влоб: пробить диапазоны чисел через if... от 1 до 9 - однозначное... и т.д...
второе:
делать лучше всего с циклом while условие do.. ну и выяснить процент сложный или простой (процент берется от первой суммы, в данном случае от 10000 или же от итоговой суммы предыдущего года)
третье: рутинная работа, с исключениями...
успехов... как спросили так вам и ответили...

[Arhangel7]

var S:string[3];
begin
  write('Введите число от 1 до 999');readln(S);
  if length(S) =1 then writeln('однозначное число');
  if length(S) =2 then writeln ('Двузначное число');
  if length(S) =3 then writeln ('Трехзначное число');
  readln;
end.

var I,q:integer;r:extended;
begin
r:=0;
  readln(I);
  for q := 1 to 100 do
    begin
      r:=10000/100*I+r;
      if r>=2000 then break;
    end;
  writeln(q);
  readln;
end.

[ACOL]

program tri_znaka;
uses crt;
var a:string;
begin
writeln('Введите число от 1 до 999');
readln(a);
if (length(a))=1 then
writeln('Однозначное');
if (length(a))=2 then
writeln('Двузначное');
if (length(a))=3 then
writeln('Трехзначоне')
else writeln('Это число не входит в промежуток от 1 до 999');
readln;
end.

[Serge_Bliznykov]

ACOL, во-первых, не надо некропостерством заниматься и поднимать древние темы (тем более, по пустякам).
во-вторых, в условиях задачи сказано, ДАНО ЧИСЛО от 1 до 999.
При чём здесь "это число не входит в промежуток"?
я уже молчу о том, что Вы можете вообще 2 пробела ввести, программа скажет, что это ДВУХЗНАЧНОЕ число!!