Вопрос по информатике:
Паскаль Напечатать значение вводимого числа от 1 до 10 римскими цифрами
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 18.11.2016 01:24
- Информатика
- remove_red_eye 16610
- thumb_up 31
Ответы и объяснения 1
Var
i,n:byte;
begin
Write('Введите натуральное число от 1 до 10: ');
Read(n);
if not (n in [1..10]) then Writeln('Недопустимое значение')
else
Write('В римской записи: ');
case n of
4: Writeln('IV');
5: Writeln('V');
6: Writeln('VI');
7: Writeln('VII');
8: Writeln('VIII');
9: Writeln('IX');
10: Writeln('X');
else
begin for i:=1 to n do Write('I'); Writeln end
end;
end.
Тестовое решение:
Введите натуральное число от 1 до 10: 3
В римской записи: III
- 19.11.2016 04:29
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.