Определите, к какому именно этапу относятся приведённые шаги​

#include <iostream>

#include <cmath>

#include <vector>

#include <map>

#include <set>

#include <queue>

#include <stack>

#include <algorithm>

#pragma GCC optimize("Ofast")

#define ll long long

using namespace std;

ll digits(ll a){

   if(a == 0)

       return 1;

   ll cnt = 0;

   while(a > 0){

       a /= 10;

       cnt++;

   }

   return cnt;

}

int main() {

   ll n;

   cin >> n;

   ll h = n/3600;

   h %= 24;

   n %= 3600;

   ll m = n/60;

   ll s = n % 60;

   cout << h << ':';

   if(digits(m) == 1)

       cout << 0;

   cout << m << ':';

   if(digits(s) == 1)

       cout << 0;

   cout << s;

}

на информатиксе 100 :)

Сумма всех четных чисел от 1 до 200 - это на самом деле сумма чисел
2+4+6+...+198+200.

1. Самый короткий вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  Writeln(Range(2,200,2).Sum)
end.

Результат:
10100

2. Более длинный и более "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=0;
  var i:=2;
  while i<=200 do begin
    s:=s+i;
    i:=i+2
    end;
  Writeln(s)
end.

3. Совсем "тупой школьный" вариант (решение "в лоб")

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 200 do
    if i mod 2 =0 then s:=s+i;
  Writeln(s)
end.

4. Улучшенный "школьный" вариант

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
var
  i,s:integer;
begin
  s:=0;
  for i:=1 to 100 do s:=s+2*i;
  Writeln(s)
end.