1. Если бы программы размещались прямо на рабочем столе, то на нем же находилось бы большое кол-во папок. Ярлыки иногда используют, если папка или программа находится не на основном диске, но должны быть на рабочем столе
2. Все
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadSeqReal(3).Where(t -> t > 0).Sum.Println
end.
<h2>3.53 -6.23 12</h2><h2>15.53 </h2>
#include <iostream>
using namespace std;
int main()
{
int a,b,n = 0;
float S = 0;
cin >> a;
cin >> b;
for(int i = a; i <= b; i++)
{
n++;
S+=i*i;
}
S = S/n;
cout.setf(ios::fixed);
cout.precision(2);
cout << "S = " << S << endl;
return 0;
}
Здесь небольшая проблемка: при больших R некоторых частей функций не будет видно...
Но тем не менее;
uses Crt;
var x, y, R: real;
begin
ClrScr;
Write(' X = '); ReadLn(X);
Write(' R = '); ReadLn(R);
if x<=-R then y:=-3 else
if (x>=-R) and (x<=R) then y:=-sqrt(R*R-x*x) else
if (x>R) and (x<6) then y:=3+6*(x-6)/(R-6) else
if (x>=6) then y:=(x-9);
ReadLn;
end.
Единственное, что осталось - распечатать значения Y...
Но по условию распечатка Y вроде не требуется... Или я чего-то не понимаю...