Друга ищи, а найдёшь - береги.
Старый друг лучше новых двух.
<em>// PascalABC.NET 3.2, сборка 1407 от 18.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a,b:integer;
Write('Введите границы интервала: '); Read(a,b);
if a>b then Swap(a,b); // страховка от злобных буратинок
var k:=Range(a,b).Where(m->sqr(sin(m))+cos(m*m)<0).Count;
Writeln('На интервале найдено отрицательных значений- ',k)
end.
<u>Пример</u>
Введите границы интервала: -3 10
На интервале найдено отрицательных значений- 4
¬A∪ B - первая буква не гласная (согласная) или четвёртая согласная=
= первая или четвёртая буквы в имени согласные
подходят имена:
1 елеНа
2 Вадим
4 Фёдор
( не подходит антон, так как ни одна из 1 и 4 буквы
не согласные)