Дано трёхзначное число. верно ли, что сумма цифр этого числа будет кратна 3? программа на пскаль

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
begin
  Writeln(ReadlnString('n=').ToIntegers.Sum mod 3=0)
end.

Выводится True, если верно и False, если нет
Пример
n= 483
True

Замечание
Число может быть не обязательно трехзначным - количество цифр в нем не ограничено!

Решение на паскале.

Объяснение:

Первая задача:

var summa, kolichestvo : integer;

 begin

   summa := 2;

   while summa <= 100 do

   begin

     summa := summa + 8;

     kolichestvo := kolichestvo + 1;

   end;

   writeln('Количество = ', kolichestvo);

 end.

Вторая задача:

var a : array[1..20] of integer;

   kolpol, sumot, i : integer;

begin

 for i:=1 to 20 do

   Read(a[i]);

 for i := 1 to 20 do

   if a[i] >= 0 then

     kolpol := kolpol +1

   else

     sumot := sumot + a[i];

 writeln('Количество положительных = ', kolpol);

 writeln('Сумма отрицательных = ', sumot);

end.

#include <iostream>

#include <string>

using namespace std;

int main() {

   int N;

   cin >> N;

   int i = 100, count = 0;

   while (i <= 999) {

       string temp = to_string(i);

       if ((temp[0] - '0') * (temp[1] - '0') * (temp[2] - '0') == N) {

           cout << i << ", " << temp[0] << " * " << temp[1] << " * " << temp[2] << " = " << N << endl;

           ++count;

       }

       ++i;

   }

   cout << "Total: " << count;

}