tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вычислить y=1/x если при
Вычислить y=1/x если при x=0 решений нет
валериялера2
2 21.09.2019 09:00
3
Ответы
arturk13
21.08.2020 12:49
Var y,x: real;
begin
readln(x);
if x=0 then writeln('решений нет')
else begin
y:=1/x;
writeln(y)
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Kill111111111111
21.08.2020 12:49
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
if x=0 then write('нет решений') else write(1/x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
hayatuzun00
15.05.2019 08:47
Почему я не могу скопировать персонажа в варфэйс птс? (у меня 40 ранг)...
adelyavalieva1
15.05.2019 08:47
1. в какой последовательности обычно выполняется процесс видеомонтажа в видеоредакторе pinnacle studio? монтаж – захват – вывод фильма; монтаж – вывод фильма – захват; захват...
nalimovshurik
15.05.2019 08:45
Информатикаответить на вопросы 1. какими положениями определяется правовой режим информационных ресурсов? 2. какое условие является обязательным для включения информации...
Boikamen
22.09.2019 14:00
C++! ввести с клавиатуры три целых числа, найти их сумму, произведение и среднее арифметическое...
Vanek11111100
22.09.2019 14:10
Определить, является ли введенное число числом амстронга. числом амстронга называется число, равное сумме своих цифр в степени их количества. например: 153= 1^3+5^3+3^3 написать...
roker62
22.09.2019 14:10
Решите, с дано: 1) информационное сообщение на языке, первоначально записанное в 8-битовом коде кои-8, было перекодировано в 16-битовую кодировку unicode. в результате его...
Victoria200188
22.09.2019 14:20
Даны натуральные числа a, b, c, d. найдите среднее арифметическое тех из них, которые кратны 7. входные данные во входном потоке в единственной строке через пробел записаны...
adelina110
22.09.2019 14:20
Программа в питоне! известно, что инопланетный корабль движется со скоростью 18 000 км в час. напишите программу, которая спросит у пользователя расстояние в километрах (можем...
1lёn1
22.09.2019 13:25
Вкачестве объекта исследования выберите объект *река* и разработайте информационные модели, отражающие точку зрения рыболова и художника. для каждой модели оцените ее адекватность....
kashavcevaeliz
22.09.2019 13:23
Сколько останется место на накопителе с ёмкостью 2 гб если на неё записать книгу в которой 256 страниц 95 строк и 80 символов в строке...
Популярные вопросы
Из предложении: и до того листья налились и пропитались солнцем, что к...
3
На якому меридіані вона розташована?...
1
При сжигании 4 гр алкана образовалось 9 гр воды определите формулу алкана....
3
Сочинение о исполнителе романсов, 25 , кратко но ! ...
1
Длина рукава куртки 49 см. на каком растоянии от нижнего края кукава пришита...
2
Обчисліть масову частку солі в мовному купоросі...
2
Какое значение примет х в результате выполнения команд 1) х: =0 2)х: =3-2*х...
1
3. визначте числовий масштаб карти, якщо відстанстабкарти, якщо відстані...
3
На формате а4 нарисовать электронные формулы 10 элементов от водорода...
2
Сочинение на тему все в человеке,все для человека. ^^...
1
begin
readln(x);
if x=0 then writeln('решений нет')
else begin
y:=1/x;
writeln(y)
end;
end.
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
if x=0 then write('нет решений') else write(1/x);
end.