Программа вычисляет частное от деления двух чисел. Но прежде чем сделать это она должна проверить корректность введенных данных.
Решение:
| 1 2 3 4 5 6 7 8 9 10 11 | program choice_3; uses crt; var a, b: real; begin clrscr; write(‘Числитель > ‘); readln(a); write(‘Знаменатель > ‘); readln(b); if b = 0 then write(‘На ноль делить нельзя’) else write(a, ‘/’, b, ‘=’, a/b:3:1); readkey; end. |