Обработка символьных данных. Создание программ.

[DERZArap4KA]

Паскаль. Обработка символьных данных.
Ребят, умоляю помогите пожалуйста надо программу и блок-схему к задаче: "Дано натуральное число N (N<=1000). записать это число русскими словами(семнадцать, двести один и т.д.)" просто не представляю как это можно сделать!!!
и еще одна, но посложней:" Дано натурально число N. среди чисел 1, 2, ..., т найти все такие , запись которых совпадает с последними цифрами, записи их квадрата(6^2=36? 25^2=625) и т.д."
операторы, из которых может состоять программы: 1) Delete; 2) Insert; 3) Str; 4) Copy; 5) Val; 6) Concat; 7) Length; 8) Pos; 9) UpCase; 10) Ord; 11) Chr

[MisterDie]

Сообщение от DERZArap4KA

Операторы, из которых могут состоять программы: 1) Delete; 2) Insert; 3) Str; 4) Copy; 5) Val; 6) Concat; 7) Length; 8) Pos; 9) UpCase; 10) Ord; 11) Chr

Т.е. другие операторы использовать нельзя?

[VIK_aka_TOR]

1
pascal/delphi
попытка на c++

[Abstraction]

По второй задаче: требуется найти такие m, что m - k-значное и m*(m-1) делится на 10^k.
Очевидно, m либо m-1 кратно 5^k.
Таким образом, m может принадлежать только множеству {5, 6, 25, 26, 50, 51, 75, 76, 125, 126, 250, 251, ...} Требование, чтобы m либо m-1 также делилось на 2^k завершает решение задачи, оставляя не более двух чисел для каждого k: {5, 6, 25, 76, 376, 625, ...}.

[DERZArap4KA]

Можно, просто я сама других не знаю, кроме как этих

[VIK_aka_TOR]

хорош кросс постить

[MisterDie]

var n,k:integer;
s:string;
begin
while 1=1 do begin
writeln('Введите 0=>N<=1000');
readln(n);
case n div 100 of
0:begin case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n of 10:s:='десять'; 11:s:='одиннадцать'; 12:s:='двенадцать'; 13:s:='тринадцать'; 14:s:='четырнадцать'; 15:s:='пятнадцать'; 16:s:='шестнадцать'; 17:s:='семнадцать'; 18:s:='восемнадцать'; 19:s:='девятнадцать'; end; end; 2..9:k:=1; end; end;
1:begin s:='сто '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
2:begin s:='двести '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
3:begin s:='триста '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
4:begin s:='четыреста '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
5:begin s:='пятьсот '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
6:begin s:='шестьсот '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
7:begin s:='семьсот '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
8:begin s:='восемьсот '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать'; 12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;

Первая часть...

[MisterDie]

Вторая часть

9:begin s:='девятьсот '; case (n div 10) mod 10 of 0:begin case n of 0:s:='ноль'; 1:s:='один'; 2:s:='два'; 3:s:='три'; 4:s:='четыре'; 5:s:='пять'; 6:s:='шесть'; 7:s:='семь'; 8:s:='восемь'; 9:s:='девять'; end; end; 1:begin case n mod 100 of 10:s:=s+'десять'; 11:s:=s+'одиннадцать';  12:s:=s+'двенадцать'; 13:s:=s+'тринадцать'; 14:s:=s+'четырнадцать'; 15:s:=s+'пятнадцать'; 16:s:=s+'шестнадцать'; 17:s:=s+'семнадцать'; 18:s:=s+'восемнадцать'; 19:s:=s+'девятнадцать'; end; end; 2..9:k:=1; end; end;
10:s:='тысяча';
end;
if k=1 then begin
case (n div 10) mod 10 of
2:s:=s+'двадцать ';
3:s:=s+'тридцать ';
4:s:=s+'сорок ';
5:s:=s+'пятьдесят ';
6:s:=s+'шестьдесят ';
7:s:=s+'семьдесят ';
8:s:=s+'восемьдесят ';
9:s:=s+'девяносто ';
end;
case n mod 10 of
1:s:=s+'один';
2:s:=s+'два';
3:s:=s+'три';
4:s:=s+'четыре';
5:s:=s+'пять';
6:s:=s+'шесть';
7:s:=s+'семь';
8:s:=s+'восемь';
9:s:=s+'девять';
end;
end;
writeln(s);
s:='';
k:=0;
end;
end.

[DERZArap4KA]

Спасибо большое