Так как в разделе программирования нет языка Паскаль. Вот я создал эту темку)
Есть такой код... как можно упростить и как сделать чтобы если пользователь ввел число не 1..4 ему вводило сообщение "Введите соответственное число".
Код
Uses crt;
var a,b,c,d,e,f,g,h,n:integer;
begin
ClrScr;
writeln('"Калькулятор", нажмите ENTER чтобы продолжить');
readln;
writeln('Выберите операцию, 1 = умножение, 2 = деление, 3 = вычитание, 4 = сложение ');
readln(n);
if (n=4) then
begin
writeln('Введите числа');
readln(a,b);
writeln(a, '+', b, '= ', a+b);
end;
if (n=3) then
begin
writeln('Введите числа');
readln(c,d);
writeln(c, '-', d, '= ', c-d);
end;
if (n=2) then
begin
writeln('Введите числа');
readln(e,f);
writeln(e, ':', f, '= ', e/f);
end;
if (n=1) then
begin
writeln('Введите числа');
readln(g,h);
writeln(g, '*', h, '= ', g*h);
end;
readln;
end.
