Войти Регистрация Спроси ai-bota

Вычислить y=1/x если при x=0 решений нет

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

maktanya563

21.08.2022 20:17

Реши задачу. Дано: Объём оперативной памяти (V) =2 Кб Длина машинного слова (дмс)= 4 байта Вопрос: Определить: - Количество машинных слов (кмс) - Адрес последнего байта (апб)...

Тимонди

05.01.2022 03:20

Составить постановку, порядок решения и реализовать в exсel определение места расположения символа ГБА при многократном вхождении в каждом из 2 введёных в одну строчку слов....

efwwewe

26.05.2021 16:26

умоляю умоляю умоляю умоляю ...

лчлвоу

18.02.2022 11:53

Program temperature; var t: array[1..12] of real; i: integer; tsred: real; begin for i: =1 to 12 do begin write( t[ , i: 2, ]= ); read (t[i]) end; tsred: =0; for i: =1 to...

Fenef

13.06.2022 23:08

Даны два четырёхзначных числа a и b. выведите все четырёхзначные числа на отрезке от a до b, запись которых является палиндромом. прога на питоне !...

andreybalashov

08.04.2022 15:45

Запишите подряд без пробелов и разделителей последние пять чисел, которые будут напечатаны на экране при выполнении вызова f(2). числа должны быть записаны в том порядке,...

ботаник041

09.06.2021 23:32

Запиши словосочетания сущ.+сущ. в р.п. с пре длогом или глаг.+сущ. в р.п. с предлогом.используй предлоги, данные в таблице.(без, для, до, из, от, с, у и др.) с тремя словосочетаниями...

веранастякрас

09.06.2021 23:32

Собака увидела зайца в150 саженях от себя. заяц пробегает за 2 мин 500 саженей, а собака за 5 мин -1300 саженей. за какое время собака догонит зайца?...

maruya3

09.06.2021 23:32

Определите, в каких предложениях возможна замена местоимения мой на свой и наоборот. спишите, вставляя пропущенные буквы, знаки препинания и раскрывая скобки. 1) я ничего...

ariannaajoseph9

09.06.2021 23:32

Для сокращённого ионного вида уравнения: zn 2+ + sio3 2- = znsio3 полный молекулярный и полный ионный вид этого уравнения....

Ответ:

89539123898

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.

0,0(0 оценок)

Ответ:

BlackBear2517

21.08.2020 12:49

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
if x=0 then write('нет решений') else write(1/x);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку