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

Дано натуральное число n,m (n,m<=3000 N<=M) Ввести всі прості числа з проміжку n,m вхидни Данте 5 10
вихидни 5 7
с++​

Показать ответ
Ответ:
Kotya005
Kotya005
11.04.2023 04:12
Желтые      Красные    Зеленые
  6                  6              0
  8                  0              4
  7                  3              2

Вот программка на Паскале:

uses Crt;
var g, k, z:integer;

begin
 ClrScr;
 for g:=0 to 12 do
   for k:=0 to 12 do
      for z:=0 to 12 do
          begin
             if (g+k+z=12)  and (0.5*g+1.5*k+2*z=12) then
                WriteLn (g,' ',k, ' ', z);
          end;
 ReadLn;
end.

Вывод: Можно вообще не брать красные или зеленые шары.
Если брать шары всех цветов, то ответ у задачи один
7   3   2
0,0(0 оценок)
Ответ:
roma845
roma845
07.08.2020 00:48
Var x, temp, p, a, original: integer;
found: boolean;
begin
found:=false; //переменная примет значение "истина" тогда, когда число А будет найдено в цифрах первого числа
writeln('Введите натуральное число");
Readln(original);
Writeln('Введите число A');
Readln(a);
x:=original;
p:=1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю)
while x>0 do            //пока X болльше нуля
  begin
    temp:=x mod 10;     //заносим последнюю цифру числа X в переменную temp
    if temp=a then found:=true; //если цифра числа равна A, то помечаем, что нашли ее
    p:=p*temp;          //домножаем произведение на цифру
    x:=x div 10;        //отбрасываем последнюю цифру числа через целочисленное деление
  end;
Writeln('Произведение цифр числа ' + original + ' равно ' + p);
if found then writeln('Цифра' + a + ' есть в исходном числе ' + original)
else writeln('Цифра ' + a + ' отсутствует в оригинальном числе ' + original)
end;
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота