Оксана рада, что вы отважно учились весь этот год, и приготовила несколько испытаний для вас. сперва она решила проверить, насколько хорошо вы «подружились» с функцией filter и объектом stdin. оксана просит вас проанализировать поток «маленьких данных», полученных от низконагруженного сервера сбора статистики. вы должны получить размах (разница между максимальным и минимальным) чисел, входящих в заданный диапазон, для каждой выборки крайне важных данных. если размах найти невозможно, считайте его равным -1. формат ввода в первой строке записано два натуральных числа x, y. во всех последующих строках записано некоторое количество натуральных чисел, разделённых пробелами. формат вывода для каждой строки требуется вычислить размах чисел, входящих в диапазон [x, y] (границы включены). пример 1 ввод вывод 2 5 1 2 3 4 5 6 3.0 пример 2 ввод вывод 3 7 3 6 9 1 8 3.0 -1 примечания оксана считает, что точности в 2 знака после запятой вполне достаточно, но не собирается вас останавливать, если вы возжелаете большего.
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
then writeln('Не квадратное уравнение!')
else begin
d:= sqr(b)-4*a*c;
if d < 0 then writeln('Нет корней')
else begin
x1:= (-b+sqrt(d))/2*a;
x2:= (-b-sqrt(d))/2*a;
writeln ('X1 =',x1,' X2 =',x2);
end;
end;
end.
{
if (tnum < tden)
{
temp = tnum;
tnum = tden;
tden = temp;
}
tnum = tnum - tden;
}
gcd = tden; //вычисляем наибольший общий делитель
numerator = numerator / gcd; //делим числитель и знаменатель на
НОД, получаем сокращенную дробь
denominator = denominator / gcd;