Другие вопросы по теме Информатика
Nastua204042
03.06.2019 07:50
nastiakosovic
03.06.2019 06:17
тупая761
17.12.2020 21:05
sazonov30021
17.12.2020 21:05
7Rahat
17.12.2020 21:05
маг122
17.12.2020 21:05
МарсСМарса
17.12.2020 21:04
Популярные вопросы
- Вмагазин 72 кг зифира.в 9 пакетов расфасовали по 2 кг зефира.сколько килограммов...
3 - Движение двух тел описаны уравнениями х1=10-4•t; x2=-2•t определите время...
1 - Вряду элементов ca - sr - ba происходит увеличение (усиление) 1) числа электронов...
2 - Вычислите значение выражения 5a-8c при a=4/5, c=3/16...
1 - Какой лексический словарь вы хотели бы приобрести и почему...
1 - Занятие культурой доклад по обж на 3 листа...
3 - Переводите число 243 в 2-ю.8-ю.16-ю систему счисления напишите как считали...
3 - Выполните преобразования: b=3(m+n)-3(n-m)+5(m+c)...
2 - Мне нужно 4 слова (по буларускому)с суффиксами...
1 - Почему представление о временах года сезонах и их продолжительности сложилось...
3
//делаем так, чтобы выполнялись два условия, если поставим else if, то второе условие никогда не выполнится
var
x : integer;
f : real;
begin
readln(x);
if x >= -3 then
writeln(9);
if x > -3 then
writeln(1/(x*x)+1);
end.