program smth;
var x, y : real;
Begin
writeln ('Введите значение x');
readln (x);
y := 1 / sqr(x+1);
if (sqr(x+1) = 0) then
writeln ('Знаменатель = 0')
else
writeln ('Значение y = ', y);
end.
----------------------------------
Или
----------------------------------
program smth;
var x, y : real;
Begin
writeln ('Введите значение x');
readln (x);
if (x <> -1) then
Begin
y := 1 / sqr(x+1);
writeln ('Значение y = ', y)
end
else
writeln ('Знаменатель = 0');
end.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace ConsoleApplication1
{
class Program
{
static void Main(string[] args)
{
//Напишите программу,которая в последовательности целых чисел определяет количество чисел,кратных 5 или 9.
//Программа получает на вход целые числа,количество введённых чисел неизвестно,последовательность чисел заканчивается числом 0.
//Количество чисел не превышает 1000.Введённые числа по модулю не превышают 30 000.Программа должна вывести одно число:количество чисел,кратных 5 или 9.
int n = 0; // количество
int a = int.Parse(Console.ReadLine());
while (a != 0)
{
if (a % 5 == 0 || a % 9 == 0)
n++;
a = int.Parse(Console.ReadLine());
}
Console.WriteLine(n);
Console.ReadKey();
}
}
}
begin
Println(1/Sqr(ReadInteger+1))
end.
Примеры:
7
0.015625
-4
0.111111111111111
0
1
-1
Infinity (это означает бесконечность)