Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
bombom
2 / 2 / 1
Регистрация: 20.12.2013
Сообщений: 100
#1

Написать программу вывода названия числа от 1 до 100 по самому числу - Pascal ABC

26.12.2013, 22:25. Просмотров 1003. Ответов 1
Метки нет (Все метки)

1) Написать программу вывода названия числа от 1 до 100 по самому числу.
2) Написать программу нахождения дня недели по номеру дня в месяце: Март 2012г.
http://www.cyberforum.ru/pascalabc/thread776794.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.12.2013, 22:25
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Написать программу вывода названия числа от 1 до 100 по самому числу (Pascal ABC):

Найти все трехзначные числа, три последних цифры квадрата которых равны самому числу
Проблема с реализацией на Паскале, прошу помощи уважаемые форумчане и гуру...

Найти трехзначные числа, в которых сумма факториалов цифр равняется самому числу. Использовать подпрограмму для n!
Среди трехзначных чисел найти такие, в которых сумма факториалов цифр равнялась...

Написать программу для вывода на экран степеней (от 1 до 10) числа
Написать программу для вывода на экран степеней (от 1 до 10) числа

Написать программу для вывода на экран степеней (от 1 до 10) числа 3
Написать программу для вывода на экран степеней (от 1 до 10) числа 3.

Написать программу проверки умения складывать и вычитать числа в пределах 100...
Написать программу проверки умения складывать и вычитать числа в пределах 100....

1
Striker
Ведущий программист C#
240 / 219 / 154
Регистрация: 19.08.2012
Сообщений: 498
Записей в блоге: 1
27.12.2013, 08:59 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1)Я думаю Вы переделаете под себя:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
var
  st: string; 
  n, i: longint;
 
var
  c: array[1..4]of integer; 
  s: array[1..4, 1..3]of string;
 
begin
  s[1, 1] := 'миллиард'; 
  s[1, 2] := 'миллиарда'; 
  s[1, 3] := 'миллиардов'; 
  s[2, 1] := 'миллион'; 
  s[2, 2] := 'миллиона'; 
  s[2, 3] := 'миллионов'; 
  s[3, 1] := 'тысяча'; 
  s[3, 2] := 'тысячи'; 
  s[3, 3] := 'тысяч'; 
  s[4, 1] := ''; 
  s[4, 2] := ''; 
  s[4, 3] := ''; 
  
  readln(n); 
  st := ''; 
  c[1] := n div 1000000000; 
  c[2] := (n mod 1000000000) div 1000000; 
  c[3] := (n mod 1000000) div 1000; 
  c[4] := n mod 1000; 
  
  for i := 1 to 4 do 
    
    if c[i] <> 0 then 
    begin
      if c[i] div 100 <> 0 then 
        case c[i] div 100 of 
          1: st := st + 'сто'; 
          2: st := st + 'двести'; 
          3: st := st + 'триста'; 
          4: st := st + 'четыреста'; 
          5: st := st + 'пятьсот'; 
          6: st := st + 'шестьот'; 
          7: st := st + 'семьсот'; 
          8: st := st + 'восемьсот'; 
          9: st := st + 'девятьсот'; 
        end; 
      
      if (c[i] mod 100) div 10 <> 1 then 
      begin
        case (c[i] mod 100) div 10 of 
          2: st := st + ' двадцать'; 
          3: st := st + ' тридцать'; 
          4: st := st + ' сорок'; 
          5: st := st + ' пятьдесят'; 
          6: st := st + ' шестьдесят'; 
          7: st := st + ' семьдесят'; 
          8: st := st + ' восемьдесят'; 
          9: st := st + ' девяносто'; 
        end; 
        case c[i] mod 10 of 
          1: if i <= 3 then st := st + ' одна' else st := st + ' один'; 
          2: if i <= 3 then st := st + ' две' else st := st + ' два'; 
          3: st := st + ' три'; 
          4: st := st + ' четыри'; 
          5: st := st + ' пять'; 
          6: st := st + ' шесть'; 
          7: st := st + ' семь'; 
          8: st := st + ' восемь'; 
          9: st := st + ' девять'; 
        end; 
      end 
      else 
        case (c[i] mod 100) of 
          10: st := st + ' десять'; 
          11: st := st + ' одинадцать'; 
          12: st := st + ' двенадцать'; 
          13: st := st + ' тринадцать'; 
          14: st := st + ' четырнадцать'; 
          15: st := st + ' пятнадцать'; 
          16: st := st + ' шестнадцать'; 
          17: st := st + ' семнадцать'; 
          18: st := st + ' восемнадцать'; 
          19: st := st + ' девятнадцать'; 
        end; 
      
      if (c[i] mod 100 >= 10) and (c[i] mod 100 <= 19) then st := st + ' ' + s[i, 3] + ' ' 
      else 
        case c[i] mod 10 of 
          1: st := st + ' ' + s[i, 1] + ' '; 
          2..4: st := st + ' ' + s[i, 2] + ' '; 
          5..10: st := st + ' ' + s[i, 3] + ' '; 
        end; 
      
    end; 
  
  writeln(st); 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.12.2013, 08:59
Привет! Вот еще темы с решениями:

Написать программу вывода всех квадратов натуральных чисел не превосходящих заданного числа n
необходимо написать программу вывода всех квадратов натуральных чисел не...

Разработать программу вывода названия дней недели
Разработать программу вывода названия дней недели (понедельник вторник и тд.)...

Напишите программу вывода названия числа от 1 до 100 по самому числу
Напишите программу вывода названия числа от 1 до 100 по самому числу.

Напишите программу вывода названия числа от 1 до 100 по самому числу
Напишите программу вывода названия числа от 1 до 100 по самому числу


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru