Решить на языке с++; коди писать для console application! к василию приехали два его друга с отличной новостью: они выиграли в лотерею n рублей. поскольку лотерейный билет был получен на сдачу во время общей закупки в магазине, то его принадлежность определить не удалось. было решено разделить выигрыш поровну. василий хотел бы узнать, можно ли честно разделить выигрыш. входные данные одно натуральное число n, количество знаков которого не превышает 255. выходные данные вывести "yes", если входное число делится на 3, и "no" если не делится. пример: входные данные #1 | 1234567890987654321 выходные данные #1 | yes входные данные #2 | 25 выходные данные #2 | no

#include <iostream>

#include <string>

using namespace std;

int char_to_int(char symb) {

return symb - '0';

}

int main() {

string bufer;

cin >> bufer;

long long sum = 0, len = bufer.length();

for(int i = 0; i < len; ++i) {

 sum += char_to_int(bufer[i]);

}

if(sum % 3 == 0)

 cout << "YES";

else

 cout << "NO";

system("pause");

}

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
  var (a,b):=ReadInteger2('Введите границы диапазона:');
  var Всего:=b-a+1; // количество целых чисел в диапазоне
  var Четных,Нечетных:integer;
  if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
  else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
  Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.

Пример
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5

2)

begin
  var (n,a,b):=ReadInteger3('Введите n,a,b:');
  SeqRandom(n,a,b).Println
end.

Пример
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var ИсходноеЧисло:=ReadlnString('Введите исходное целое число:');
  var МассивЦифрЧисла:=ИсходноеЧисло.ToCharArray;
  var МестоМаксЦифры:=МассивЦифрЧисла.IndexMax;
  var МестоМинЦифры:=МассивЦифрЧисла.IndexMin;
  If МестоМинЦифры>МестоМаксЦифры then Swap(МестоМинЦифры,МестоМаксЦифры);
  ИсходноеЧисло:=ИсходноеЧисло?[:МестоМинЦифры+1]+
      ИсходноеЧисло?[МестоМаксЦифры+2:];
  Writeln('Результат замены: ',ИсходноеЧисло)
end.

Пример
Введите исходное целое число: 1402956387
Результат замены: 1456387