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

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

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

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

Вывести числа, квадрат суммы цифр которых равен самому числу
Ввести последовательность целых чисел до нуля. Вывести числа, квадрат суммы...

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

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

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

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

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

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

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

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


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

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

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