Помогите пож!!! Используя оператор case, напишите пож. программу, которая переводит десятичные числа 1, 5, 10, 50, 100, 500, 1000,
5-9 класс
|
считываемые с клавиатуры, в римские.
var a:integer;
s:string;
Begin
read(a);
case a of
1: s:="I";
5: s:="V";
10: s:="X";
50: s:="C";
100: s:="C";
500: s:="I";
1000: s:="M;
end;
writeln(s);
End.
римские соответствия не все помню
Другие вопросы из категории
Другое название жёсткого диска?
635,б) 427, в) 686,6875,г) 683,5 д) 220,68
2.Перевести в 10-тичную систему счисления.
а) 1001010111( в двоичную),б) 101110100( в двоичную) в) 1001000000(в двоичную) г) 1100011101,1101( в двоичную) д) 1267,16( в восьмиричную) е) 5А,6( шеснадцатиричную)
Читайте также
его на цифры. Например, при вводе числа 123 программа должна
вывести 1, 2, 3.
2. Напишите программу, которая вводит возраст человека (число, не
превосходящее 120) и выводит на экран этот возраст со словом «»год,
«года» , «лет» . например «21 год», «22 года», «15 лет»
Помогите пожалуйста !!!!
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
ихся 0 или 1.
Программа получает на вход целые числа от -3000 до 3000.
2)Напишите программу,которая в последовательности целых чисел вычисляет среднее арифметическое среди двухзначных чётных чисел,делящихся на 3.
НУЖНО СЕГОДНЯ! 66 БАЛЛОВ!
программу, которая запрашивала три числа, подсчитывала их средне и сумму и на экран выводила фразу "Их среднее равно..." и "Их сумма равна..."