дано двузначное римское число, определить его десятичное значение. (паскаль) помогите, срочно, взаранее спасибо))) вот обозначения некоторых: I - "1"; V - "5"; X - "10"; L - "50"
Ответы
Ответ дал:
0
var a1, b1: integer; a, b: char;
begin
read(a, b);
case a of
'i': a1 := 1;
'v': a1 := 5;
'x': a1 := 10;
'l': a1 := 50
end;
case b of
'i': b1 := 1;
'v': b1 := 5;
'x': b1 := 10;
'l': b1 := 50
end;
if a1 < b1
then
writeln(b1 - a1)
else
writeln(a1 + b1);
end.
begin
read(a, b);
case a of
'i': a1 := 1;
'v': a1 := 5;
'x': a1 := 10;
'l': a1 := 50
end;
case b of
'i': b1 := 1;
'v': b1 := 5;
'x': b1 := 10;
'l': b1 := 50
end;
if a1 < b1
then
writeln(b1 - a1)
else
writeln(a1 + b1);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад