дано двузначное римское число, определить его десятичное значение. (паскаль) помогите, срочно, взаранее спасибо))) вот обозначения некоторых: I - "1"; V - "5"; X - "10"; L - "50"
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.