Паскаль abc.net найти сумму числового ряда с заданной точностью e (вводится пользователем): s=1/(2*3*4)+1/(3*4*5)+1/(4*5*6)+

begin

 var eps := ReadReal('Введите желаемую точность:');

 var b := 1 / (2 * 3 * 4);

 var s := b;

 var i := 2;

 var a: real;

 repeat

   a := b;

   b := 1 / ((i + 1) * (i + 2) * (i + 3));

   s += b;

   Inc(i)

 until Abs(b - a) <= eps;

 Println(s)

end.

Pascal: 
var
    n    : integer;
begin
    if n >= 100 then 
        write('Да, трехзначное');
    else 
        write('Нет, не трехзначное');
    readln; readln;  // для паузы
end.

p.s. За синтаксические ошибки не отвечаю


C++:

#include <iostream>

int main() {
    //Если нужен русский язык на выводе написать здесь: setlocale(LC_ALL, "rus");
    int n;
    cin >> n;
    if (n>=100) {
        cout << "Yes";
    } else {
        cout << "No";
    }
    system("pause"); // Для паузы
    return 0;
}

Pascal: 
var
    n    : integer;
begin
    if n >= 100 then 
        write('Да, трехзначное');
    else 
        write('Нет, не трехзначное');
    readln; readln;  // для паузы
end.

p.s. За синтаксические ошибки не отвечаю


C++:

#include <iostream>

int main() {
    //Если нужен русский язык на выводе написать здесь: setlocale(LC_ALL, "rus");
    int n;
    cin >> n;
    if (n>=100) {
        cout << "Yes";
    } else {
        cout << "No";
    }
    system("pause"); // Для паузы
    return 0;
}