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

Склавиатуры вводится трехзначное число. проверить, есть ли среди его цифр цифры кратные трем. если есть, товыдать значение этих цифр на экран. если нет, то выдать на экран сообщение: "таких цифр нет".

👇
Ответ:
milka876
milka876
21.02.2023
Var
  i,d,n,k:integer;
begin
  Write('Введите трехзначное натуральное число: ');
  Read(n);
  k:=0;
  for i:=1 to 3 do begin
    d:=n mod 10;
    if d mod 3=0 then begin
      Inc(k);
      Write(d,' ')
      end;
    n:=n div 10
    end;
  if k>0 then Write('- цифры, кратные трем')
  else Write('Таких цифр нет')
end.

Примеры
Введите трехзначное натуральное число: 569
9 6 - цифры, кратные трем

Введите трехзначное натуральное число: 184
Таких цифр нет

Замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0.
Если это не так, то замените условие
d mod 3 = 0
на
(d mod 3 = 0) and (d>0)
4,5(99 оценок)
Открыть все ответы
Ответ:
ангел809
ангел809
21.02.2023

Еще несколько лет назад мы даже не представляли, что компьютеры смогут играть в шахматы не хуже гроссмейстеров. Что информация будет храниться не на локальных компьютерах, а в «облаке»… Мы, безусловно, живем в эпоху «информационной революции»: объемы данных растут небывалыми темпами, порождая необходимость в постоянном развитии технологий.

Чтобы идти ногу со временем, учебные заведения по всему миру вводят новые специальности. Представляем 5 уникальных профессий будущего, связанных с обработкой данных и искусственным интеллектом.

1. Специалист по обработке Big Data

Термином Big Data принято описывать большие массивы разнообразной информации со сложной, неоднородной или вообще неопределённой структурой. Эта информация может быть структурирована или не структурирована, но специалист по работе с Big Data обязан уметь работать с ней и приводить к удобному для восприятия виду. Сама же наука о данных (Data Science) лежит на стыке математики, статистики, информатики, бизнеса и экономики. Соответственно, хороший специалист должен иметь знания во всех этих сферах. Рынок Big Data сейчас только начинает формироваться и в скором будущем может стать одним из основных в сфере IT.

2. Специалист по разработке нейронных сетей

Нейронные сети сегодня проникают не только всё глубже в IT и бизнес, но и в нашу повседневную жизнь. Они обрабатывают фотографии и видео в приложениях, ищут людей в соцсетях по фотографии, играют в го и даже имитируют рукописный текст. Но это лишь верхушка айсберга, то, что мы используем в быту. Настоящие серьёзные нейронные сети решают сложные задачи в экономике, статистике, химических и биологических исследованиях. Разработка и обучение нейронных сетей — важная часть нашего будущего и первый шаг на пути к созданию полноценного искусственного интеллекта.

4,7(48 оценок)
Ответ:
Alasp
Alasp
21.02.2023

#include <iostream>

#include <time.h>

using namespace std;

int main() {

srand(time(NULL));  // обнулить время для функции rand()

//Задача 1

const int count = 10; // переменная длины масива

int arr[count];//масив чисел

for (int i = 0; i < count; ++i) {//цикл до конца масива

 arr[i] = rand() % 81 - 30;//присвоить рандомные числа. (-30 чначит от -30) (81 значит -30+81 = 50 до 50 учитывая 0)

 if (arr[i] > 0) // проверка если число > 0  

  arr[i] = 5; // присваиваем 5

 else if (arr[i] < 0)// проверка если число < 0  

  arr[i] = 7; // присваиваем 7

}

//Задача 2

long int sum1 = 1;//произведение положительных

int sum2 = 0;//сумма отрицательных

const int count2 = 10; // переменная длины масива

int arr2[count2];//масив чисел

for (int i = 0; i < count2; ++i) {//цикл до конца масива

 arr2[i] = rand() % 101 - 40;//присвоить рандомные числа. (-40 чначит от -40) (101 значит -40+101 = 60 до 60 учитывая 0)

 if (arr2[i] < 0)// проверка если число < 0  

  sum2 += arr2[i]; // присваиваем sum2 все отрицательные числа

}

for (int i = 0; i < count2; ++i) {//цикл до конца масива

 if (arr2[i] > 0) // проверка если число > 0  

  sum1 *= arr2[i];

}

return 0;

}

Объяснение:

4,5(67 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ