записать программу выведения натурального числа N (<=n<=9999) в его словесной записи.
5-9 класс
|
Например n=2345 - две тысячи триста пятдесят четыре
Я писала для n<=10000. Измените для своих данных.
Uses Crt;
var n:integer;
s1,s2,s3,s4,s5:string;
begin
ClrScr;
writeln('введите натуральное число (n<=10000)');
readln(n);
if n>10000 then
begin
writeln('неверный ввод');
readln;
exit;
end;
{пятая цифра}
case n mod 10 of
1: s5:='один';
2: s5:='два';
3: s5:='три';
4: s5:='четыре';
5: s5:='пять';
6: s5:='шесть';
7: s5:='семь';
8: s5:='восемь';
9: s5:='девять';
end;
{четвертая цифра}
if n div 10 mod 10=1 then
{четвертая цифра - 1}
begin
s4:='';
case n mod 10 of
0: s5:='десять';
1: s5:='одиннадцать';
2: s5:='двенадцать';
3: s5:='тринадцать';
4: s5:='четырнадцать';
5: s5:='пятнадцать';
6: s5:='шестнадцать';
7: s5:='семнадцать';
8: s5:='восемнадцать';
9: s5:='девятнадцать';
end;
end
else
{четвертая цифра не равна 1}
case n div 10 mod 10 of
2: s4:='двадцать';
3: s4:='тридцать';
4: s4:='сорок';
5: s4:='пятьдесят';
6: s4:='шестьдесят';
7: s4:='семьдесят';
8: s4:='восемьдесят';
9: s4:='девяносто';
end;
{третья цифра}
if n div 100 mod 10=0 then s3:=''
else
case n div 100 mod 10 of
1: s3:='сто';
2: s3:='двести';
3: s3:='триста';
4: s3:='четыреста';
5: s3:='пятьсот';
6: s3:='шестьсот';
7: s3:='семьсот';
8: s3:='восемьсот';
9: s3:='девятьсот';
end;
{вторая цифра}
if n div 1000 mod 10=0 then s2:=''
else
case n div 1000 mod 10 of
1: s2:='одна тысяча';
2: s2:='две тысячи';
3: s2:='три тысячи';
4: s2:='четыре тысячи';
5: s2:='пять тысяч';
6: s2:='шесть тысяч';
7: s2:='семь тысяч';
8: s2:='восемь тысяч';
9: s2:='девять тысяч';
end;
if n div 10000 =1 then s1:='десять тысяч'
else s1:='';
writeln(s1,' ',s2,' ',s3,' ',s4,' ',s5);
readln
end.
Комментарий удален
Другие вопросы из категории
Пусть небольшая книжка содержит 150 страниц, на каждой странице 60 символов, всего 40 строк. Найдите весь обьём информации
Читайте также
(с защитой от неверного ввода) или Ввести натуральное число и определить, верно ли, что сумма его цифр равна 10 (с защитой от неверного ввода).
натуральные числа A , B, где B>A. Напишите программу последовательность натуральных чисел от A до B, включающая A и B.
Пожалуйста помогите !!!!!!!!
расположенных между N и K(включая эти числа).
Пример входных данных: 2 5
Пример выходных данных: 10
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
вводит натуральное число N и выводит на экран все автоморфные числа, не превосходящие N.