1.написать программу, которая вычисляет частное двух чисел. программа должна проверять правильность введенных пользователем данных и, если они неверные (делитель равен нулю), вы давать сообщение об ошибке. ниже рекомендуемый вид экрана во время выполнения программы (данные, введенные пользователем, выделены полужирным шрифтом). вычисление частного. введите в одной строке делимое и делитель, затем нажмите . -> 12 о вы ошиблись. делитель не должен быть равен нулю.
Фокс890
3
31.05.2019 16:10
3
Другие вопросы по теме Информатика
KingTheCat
13.12.2021 18:27
borisovak468
13.12.2021 18:28
pinsker025
13.12.2021 18:29
ivabogdan
03.08.2019 19:50
Али20061111
03.08.2019 19:50
bigman4
29.07.2019 07:40
inzi05
07.10.2019 00:50
Популярные вопросы
- Обьясните как определить падеж имен существительных в каждой паре словосочетаний...
3 - Электростанции россии вырабатывают переменный ток частотой 50гц.определите период...
2 - Укажи части речи.в лесу журчит прозрачный ручей. грачи вьют гнёзда на деревьях....
1 - Умалыша феди есть 10 красных кубиков, 15 синих и 30 зеленых. он хочет построить...
1 - Скажите формулу площади полной поверхности правильной четырёхугольной призмы...
1 - Почему у ящериц отпадает хвост когда на него наступаешь...
3 - Найдите наименьшее значение функции y=x^3-10x^2+25x+7 на отрезке [4; 11].b15....
3 - Прочитай предложения. вставь пропущеные слова was или were what was the weather...
1 - Согласны ли вы с мнением автора , что добрые чувства воспитываются в труде , отзывчивости...
1 - 675 мм2 сколько будет приближенно см2...
2
Var a, b, c:real;
Begin
Writeln('введите два числа');
Readln(a,b);
If b=0 then begin writeln('делитель не должен равняться нулю, введите числа повторно')
readln(a, b);
End
If else begin c:=a/b;
End
Writeln('получившееся число', c)
End.
Может где-нибудь есть косячок, но в основном, все должно получиться, удачи:)