Var a,b,c:real;
begin
readln(a,b);
if a=b then writeln('Нельзя вычислить')
else if a<0 then writeln('Нельзя вычислить')
else begin
c:=sqrt(a)/(b-a);
writeln('c = ',c:6:4);
end;
end.
Пример:
8 3
c = -0.5657
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответыИнформатика, опубликовано 08.11.2018
В ячейку С6 записать формулу, которая выражение А4+А5-А6 делит на сумму чисел А7 и А8.
Информатика, опубликовано 08.11.2018
Напишите программу в паскале по этой блок-схеме. Умоляю
20 баллов
Информатика, опубликовано 08.11.2018
Сколько цифр 1 в двоичном представлении десятичного числа 12
Информатика, опубликовано 08.11.2018
Помогите пожалуйста очень очень надо плис как это сделать объясните