Ответы на вопрос:
Var y,x: real; begin readln(x); if x=0 then writeln('решений нет') else begin y: =1/x; writeln(y) end; end.
Популярно: Информатика
-
Составьте алгоритм сложения натуральных чисел (в виде блок схемы)...
dhdhfjd5508.05.2021 12:29 -
Решить анаграммы: укбноту, джемо, , авоорк, текормпью...
anna66666666666630.09.2022 16:59 -
Добрый вечер. , написать программу (на pascal) для решения квадратного уравнения....
123456789надежда123430.01.2021 09:04 -
Статья содержит 64 страницы по 48 строк в каждой строке 48 символов.определите...
labzinaveronika31.07.2021 03:24 -
Укажите команды цикла используемые в игровой среде программирования Sratch...
Настіяа03.03.2023 22:42 -
1. Для чего предназначен оператор CLS 1. задание положения курсора 2. вывод...
Викуля2017200601.02.2021 19:16 -
Двоичная арифметикаСложение...
LoStEk06.05.2020 08:08 -
Напишите программу для решения следующей .девятиклассники участвовали в викторине...
azateybaikal12.07.2020 23:50 -
Нарисовать с цикла и переменными...
рысь3207.04.2021 23:43 -
Хозяйство Афин и Спарты...
hedgehogGreen24.09.2020 23:57