Запишите с десятичной системы счисления числа: mmmcclxxvlll

Question

Информатика: Запишите с десятичной системы счисления числа: mmmcclxxvlll

mariamshakhram · Accepted Answer

Почему бы не использовать условия if для выбора нужного цикла по введённой букве? Program ABC; Uses CRT; var   a, b, x, y, w, z: Real;   C, D, E, Q: integer;   action: char; begin   action := x ;   while not (action = Q ) do   begin     writeln ( la-la-la );     writeln ( Если хотите вычислить сумму, то нажмите С, произведение- D, операцию деления -E );     readln(action);     ClrScr;     if action = C then     begin       readln(a, b);       writeln (a+b);       readln(action);       ClrScr;    ...

MOGZ ответил