#include <iostream>
using namespace std;
int main()
{
float a,b,answer;
int choose;
cout << "Введите значение a: ";
cin >> a;
cout << "Введите значение b: ";
cin >> b;
cout << "Выберите математическое действие:\n1)+\n2)-\n3)*\n4)/";
cin >> choose;
switch (choose)
{
case(1):
answer=a+b;
break;
case(2):
answer=a-b;
break;
case(3):
answer=a*b;
break;
case(4):
answer=a/b;
break;
}
cout << "Calculated completed:" << a << "+"<< b << "=" << answer << endl;
return 0;
}
<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
1-удаление
2-исправление
3-Удаление
4-Правка
<em>// PascalABC.NET 3.2, сборка 1399 от 08.03.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal(3).Select(x->x<0?sqr(x*x):x*x).Println
end.
<u>Пример</u>
3.18 -5.722 1.94
10.1124 1071.99167796866 3.7636
Мин.: 8, макс.: 72 как то так