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

2. Сколько слов? Света составляет 5-буквенные слова из букв П, Р, О, К, А, Т, причём буква О должна встречаться в слове хотя бы два раза. Остальные буквы могут встречаться любое число раз, в том числе не встречаться вообще. Сколько слов может составить Света?

👇
Ответ:
ренатик9
ренатик9
14.06.2021

Сорока,Ветерок

Объяснение:

Дальше не знаю

4,7(88 оценок)
Открыть все ответы
Ответ:
Zhenya2099
Zhenya2099
14.06.2021
DIM x AS INTEGER, y AS INTEGER
DIM f AS INTEGER, p AS INTEGER
CLS
FOR x = 0 TO 40
   y = x * x + x + 41
   IF y MOD 2 = 0 THEN f = -1 ELSE f = 0
   p = 3
   DO WHILE f = 0 AND p * p <= y
      IF y MOD p = 0 THEN f = -1 ELSE f = 0
      p = p + 2
   LOOP
   IF f = 0 THEN
      PRINT "x="; x, "y="; y, "Is Prime"
   ELSE
      PRINT "x="; x, "y="; y, "Not Prime"
   END IF
NEXT x
END

Обнаружился странный эффект qBASIC.
Последовательность команд:
y:=x^2+x+41 для x=40 присваивает у значение 1681.
Для p=41 значение p^2 также равно 1681, но значение выражения
p^2<=y при этом оказывается ложным, хотя p^2 в этом случае должно быть равно у.
В связи с этой странностью вместо х^2 использовано х*х, а вместо p^2 использовано р*р.

Результат выполнения программы:
x= 0          y= 41         Is Prime
x= 1          y= 43         Is Prime
x= 2          y= 47         Is Prime
x= 3          y= 53         Is Prime
x= 4          y= 61         Is Prime
x= 5          y= 71         Is Prime
x= 6          y= 83         Is Prime
x= 7          y= 97         Is Prime
x= 8          y= 113        Is Prime
x= 9          y= 131        Is Prime
x= 10         y= 151        Is Prime
x= 11         y= 173        Is Prime
x= 12         y= 197        Is Prime
x= 13         y= 223        Is Prime
x= 14         y= 251        Is Prime
x= 15         y= 281        Is Prime
x= 16         y= 313        Is Prime
x= 17         y= 347        Is Prime
x= 18         y= 383        Is Prime
x= 19         y= 421        Is Prime
x= 20         y= 461        Is Prime
x= 21         y= 503        Is Prime
x= 22         y= 547        Is Prime
x= 23         y= 593        Is Prime
x= 24         y= 641        Is Prime
x= 25         y= 691        Is Prime
x= 26         y= 743        Is Prime
x= 27         y= 797        Is Prime
x= 28         y= 853        Is Prime
x= 29         y= 911        Is Prime
x= 30         y= 971        Is Prime
x= 31         y= 1033       Is Prime
x= 32         y= 1097       Is Prime
x= 33         y= 1163       Is Prime
x= 34         y= 1231       Is Prime
x= 35         y= 1301       Is Prime
x= 36         y= 1373       Is Prime
x= 37         y= 1447       Is Prime
x= 38         y= 1523       Is Prime
x= 39         y= 1601       Is Prime
x= 40         y= 1681       Not Prime
4,4(7 оценок)
Ответ:
Стариат
Стариат
14.06.2021
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  var (cost, t, k) := (Arr(15, 70, 125, 230, 440), Arr(1, 5, 10, 20, 60), new integer[5]);
  var n := ReadInteger('n->');
  for var i := 4 downto 0 do
  begin
    k[i] := n div t[i];n := n mod t[i];
  end; 
  if k[0] * cost[0] >= cost[1] then begin k[0] := 0;inc(k[1]); end;
  if k[0] * cost[0] + k[1] * cost[1] >= cost[2] then 
  begin
    k[0] := 0;k[1] := 0;inc(k[2]); 
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] >= cost[3] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;inc(k[3]);
  end;
  if k[0] * cost[0] + k[1] * cost[1] + k[2] * cost[2] + k[3] * cost[3] >= cost[4] then 
  begin
    k[0] := 0;k[1] := 0;k[2] := 0;k[3] := 0;inc(k[4]); 
  end;
  
  for var i := 0 to 4 do WritelnFormat('{0} билет(ов)- {1} штук(а)', t[i], k[i]);
end.

Пример(1):
n-> 37
1 билет(ов)- 0 штук(а)
5 билет(ов)- 0 штук(а)
10 билет(ов)- 0 штук(а)
20 билет(ов)- 0 штук(а)
60 билет(ов)- 1 штук(а)

Пример(2):
n-> 35
1 билет(ов)- 0 штук(а)
5 билет(ов)- 1 штук(а)
10 билет(ов)- 1 штук(а)
20 билет(ов)- 1 штук(а)
60 билет(ов)- 0 штук(а)
4,7(10 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ