Question

Дано трёхзначное число 100 - 499. Первая цифра числа означает действия (1-сложение, 2-вычитание, 3-умножение, 4-деление). Две последующие цифры являются операндами. Вывести на экран результат вычисления. Вывести сообщение в случае некорректности входного числа

Answer 1

program ryazantsev;

var n,a,b:integer;

begin

readln(n);

if n in [100..499] then begin

a:=(n mod 100) div 10; //Первое число

b:=(n mod 100) mod 10; //Второе число

case n div 100 of

1: writeln(a+b);

2: writeln(a-b);

3: writeln(a*b);

4: writeln(a/b)

end

end

else writeln ('Некорректный формат ввода!')

end.