Нужно до 22.00 05.11.! написать программу, которая заменяет цифру числа названием этой цифры. например, заменить число 4563 на строку четыре пять шесть три.

235

259

Посмотреть ответы 2

Ответы на вопрос:

Z8Z

Информатика

4,4(29 оценок)

Var n: integer; answer: string; begin read(n); while n > 0 do {пока есть цифры добавляем последнюю цифру числа к ответу и отбрасываем ее} begin case n mod 10 of 0: answer : = 'ноль ' + answer; 1: answer : = 'один ' + answer; 2: answer : = 'два ' + answer; 3: answer : = 'три ' + answer; 4: answer : = 'четыре ' + answer; 5: answer : = 'пять ' + answer; 6: answer : = 'шесть ' + answer; 7: answer : = 'семь ' + answer; 8: answer : = 'восемь ' + answer; 9: answer : = 'девять ' + answer; end; n : = n div 10; end; writeln(answer); end.