М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

напишите програму. пользователь пишет число от 0 до 999 а програма должна написать это число буквами

👇
Ответ:
rickieee
rickieee
19.09.2022
Def number_to_words(number):
# Словари для преобразования чисел в слова
units = ['нуль', 'один', 'два', 'три', 'чотири', 'п\'ять', 'шість', 'сім', 'вісім', 'дев\'ять']
tens = ['десять', 'одинадцять', 'дванадцять', 'тринадцять', 'чотирнадцять', 'п\'ятнадцять', 'шістнадцять',
'сімнадцять', 'вісімнадцять', 'дев\'ятнадцять']
decades = ['нуль', 'десять', 'двадцять', 'тридцять', 'сорок', 'п\'ятдесят', 'шістдесят', 'сімдесят', 'вісімдесят', 'дев\'яносто']
hundreds = ['нуль', 'сто', 'двісті', 'триста', 'чотириста', 'п\'ятсот', 'шістсот', 'сімсот', 'вісімсот', 'дев\'ятсот']

if number < 0 or number > 999:
return 'Число має бути в межах від 0 до 999'

if number == 0:
return 'нуль'

words = ''

# Преобразование сотен
hundreds_digit = number // 100
if hundreds_digit > 0:
words += hundreds[hundreds_digit] + ' '

# Преобразование десятков и единиц
remainder = number % 100
if remainder >= 10 and remainder <= 19:
words += tens[remainder % 10] + ' '
else:
tens_digit = remainder // 10
if tens_digit > 0:
words += decades[tens_digit] + ' '

units_digit = remainder % 10
if units_digit > 0:
words += units[units_digit] + ' '

return words.strip()

# Получение числа от пользователя
number = int(input('Введіть число від 0 до 999: '))

# Преобразование числа в слова и вывод результата
result = number_to_words(number)
print(result)

Извините если не правильно, я не очень в этом разбираюсь
4,4(49 оценок)
Открыть все ответы
Ответ:
Doplis
Doplis
19.09.2022
(Pascal)
1.
var
  i, s, n: integer;
begin
  readln(n);
  s := 0;
  i := 0;
  while i < n do
  begin
    i := i + 1;
    s := s + i;
  end;
  writeln('Цикл с предусловием: ', s);
  s := 0;
  i := 1;
  repeat
    s := s + i;
    i := i + 1;
  until i > n;
  writeln('Цикл с постусловием: ', s);
  s := 0;
  for i := 1 to n do
    s := s + i;
  writeln('Цикл с переменной: ', s);
end.

2.
var
  i, n: integer;
begin
  readln(n);
  for i := 1 to n do
    write(2 * i, ' ')
end.
3.
var
  i, a, b: integer;
begin
  readln(a, b);
  for i := a to b do
    writeln(i, ' * ', i, ' = ', i * i)
end.
4,5(97 оценок)
Ответ:
kornsergo23
kornsergo23
19.09.2022
// PascalABC.Net 3.0, сборка 1052
type
  Matrix=array[,] of integer;

function SumRow(a:Matrix; i:integer):integer;
var
  j,s:integer;
begin
  s:=0;
  for j:=0 to Length(a,1)-1 do s:=s+a[i,j];
  SumRow:=s
end;

var
  i,j,m,n:integer;
  A:Matrix;
begin
  Write('Введите количество строк и столбцов массива: ');
  Read(m,n);
  SetLength(A,m,n);
  Writeln('Исходный массив');
  Randomize;
  for i:=0 to m-1 do begin
    for j:=0 to n-1 do begin
      A[i,j]:=Random(51)-25; // интервал [-25;25]
      Write(A[i,j]:4)
    end;
    Writeln
  end;
  Write('Построчные суммы: ');
  for i:=0 to m-1 do Write(SumRow(A,i),' ');
  Writeln
end.

Тестовое решение:
Введите количество строк и столбцов массива: 10 13
Исходный массив
 -11  19  -1  12 -19  -7  25  16   6 -18   8  16 -22
 -10  -9  21  21 -16 -14  10   7  -7 -21  23 -25  14
 -16  -5  18  -6  12 -11 -23  -3  20  24  -4 -18 -16
 -15  -1   5  -5  -9  -3  -9   0   0  21  -3 -15  -1
  21  19 -17  21  15   2  11  -7 -17   5  23 -14  -5
  -7  13   7  -5  -8   0  13 -25 -24 -14 -23  24  14
   0  10 -11  10  -1  -5 -17 -12  -6 -16 -12  25 -16
  20  -3  17 -24  19   7 -16  22 -22   3  18 -21   3
  23  -3  -1  20   7 -19  23 -25 -24 -24 -21  -1 -20
   2 -23 -18  25   4  -7  -4 -17   5  -9 -17  25  -8
Построчные суммы: 24 -6 -28 -35 57 -35 -51 23 -65 -42
4,7(11 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ