В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Huhusik
Huhusik
06.01.2020 00:32 •  Информатика

На обработку поступает натуральное число, не превышающее 109 Нужно
написать программу, которая выводит на экран максимальную цифру числа, кратную 3 и меньше
9 Если в числе нет цифр, кратных 3, требуется на экран вывести «NO». Программист написал
программу неправильно. Напоминание: 0 делится на любое натуральное число.

Показать ответ
Ответ:
xXxA6PUKOCxXx
xXxA6PUKOCxXx
04.05.2020 11:21

ниже

Объяснение:

#include <iostream>  

using namespace std;

void main()

{

   SetConsoleCP(1251);//Включаем русский язык

   SetConsoleOutputCP(1251);  

   int a,b,i;//Инициализация переменных

   a=rand()%10+1;//Генерируем число от 1 до 10  

   cout<<"Компьютер загадал число от 1 до 10\n";

   cout<<"Введите число и нажмите <Enter>\n\n";

   for(i=1;i<6;i++)//Цикл проверки

   {

        cin>>b;//Ввод числа

       if(b==a)//Сравнение чисел

       {

           cout<<"Вы выиграли! Поздравляю!\n";

           cout<<"Вы отгадали число с "<<i<<"-ой попытки!\n";

           break;

       }

       if(b>a)

       {

           cout<<"введённое число больше задуманного\n";

       }

       if(b<a)

       {

           cout<<"введённое число меньше задуманного \n";

       }

   }

   if(b!=a&&i==5)//Проверка

   {

       cout<<"Вы не смогли угадать число\n";

   }

}

0,0(0 оценок)
Ответ:
KostyaBit
KostyaBit
04.01.2021 04:01
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var a:=ReadLines('m17.txt').JoinIntoString.ToIntegers;
  a.Println;
  var b:=a.Select((x,i)->Rec(x,i)).Where(x->x.Item1<0)
    .Select(x->x.Item2).ToArray;
  if b.Count<>2 then
    Writeln('Количество отрицательных элементов не равно двум')
  else begin
    a:=SeqFill(b[0],0).Concat(a.Skip(b[0]).Take(b[1]-b[0]+1))
      .Concat(SeqFill(a.Length-b[1]-1,0)).ToArray;
    a.Println
    end
end.

Тестовое решение:
23 14 7 15 0 13 -6 41 18 13 8 42 27 -11 3 19 10
0 0 0 0 0 0 -6 41 18 13 8 42 27 -11 0 0 0

Файл с исходными данными имеет имя m17.txt. Тестовый файл находится во вложении. Разбивка на строки сделана по 5 значений, но может быть совершенно произвольной. Также нет привязки именно к 17 числам, главное - чтобы отрицательных чисел было ровно два, иначе будет выдано сообщение о их неверном количестве.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота