Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
var i,s:integer; //создаем целочисленные переменные i и s
begin //начало программы
s:=0; //задаём начальное значение переменной s
for i:=1 to 30 do s:=s+i; //создаём счётчик for от 1 до 30 с последующим суммированием в переменную s
writeln(s); //печатаем переменную s
end. //конец программы
#include <iostream>
#include <cmath>
using namespace std;
//Функция вычисления факториала
long double fact(int N) {
if(N < 0)
return 0;
if (N == 0)
return 1;
else
return N * fact(N - 1);
}
int main() {
int k;
double x, S;
cout << "k = "; cin >> k;
cout << "x = "; cin >> x;
for (int n = 1; n <= k; n++)
S += (pow(-1,(n+1)) * pow(x,(2*n-1)))/fact(2*n-1);
cout << "S = " << S << endl;
system("pause");
return 0;
}
Вот точки в десятичной системе: (4,7),(6,11),(10,11),(12,7),(12,4),(13,3),(12,2),(12,3),(11,6),(8,3),(8,1),(6,1),(6,3),(4,3),(4,1),(2,1),(2,5)
Получилось что-то такое.