М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
zaxarenko2018
zaxarenko2018
05.03.2020 14:53 •  Информатика

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

👇
Ответ:
Anastasiay29
Anastasiay29
05.03.2020

#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");

}


Решить на языке с++; коди писать для console application! к василию приехали два его друга с отлично
4,4(87 оценок)
Открыть все ответы
Ответ:
Мурик123
Мурик123
05.03.2020
// 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
4,8(77 оценок)
Ответ:
alhan1
alhan1
05.03.2020
// 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
4,7(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ