Пример 6. Составить программу, которая выводит меню и выполняет указанные действия с заданными целыми числами

Составить программу, которая выводит меню и выполняет указанные действия с заданными целыми числами:

1 - произведение двух чисел

2 - частное двух чисел

3 - сумма двух чисел

Решение:

program pr6;

var a,b,n: integer;

begin

writeln('1 – произведение двух чисел');

writeln('2 – частное двух чисел');

writeln('3 – сумма двух чисел');

write('введите номер операции ');

readln(n);

write('введите два числа'); readln(a,b);

case n of

1: writeln('произведение=',a*b);

2: writeln('частное=',a/b:4:2);

3: writeln('сумма=',a+b);

else writeln('не верный номер');

end;

readln;

end.

Результат:

1 – произведение двух чисел

2 – частное двух чисел

3 – сумма двух чисел

введите номер операции 2

введите два числа 3 5

частное=0.60