Программа вычисляет частное от деления двух чисел. Но прежде чем сделать это она должна проверить корректность введенных данных.
Решение:
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. |