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

22:59 22 Тип 22 № 14706
записан
Ниже на пяти языках программирования
алгоритм. Получив на вход число х, этот алгоритм печатает
два числа: а и b. Укажите наибольшее из таких чисел x, при
вводе которого алгоритм печатает сначала 2, а потом 4.
DIM X, A, B AS INTEGER
INPUT X
А = 0: В = 0
WHILE X > 0
Бейсик
IF X MOD 2 = 0 THEN
A = A + 1
ELSE
WEND
PRINT A
PRINT B
B = B + X MOD 10
END IF
Укажите наибольшее из таких чисел х, при вводе которого алгоритм печатает сначала 2,а потом 4. Напишите , саму программу на питоне и ответ.

x = int(input())
a=0; b=0
while x > 0:
if x%2 == 0:
a += 1
else:
b += x % 10
x = x//10
print(a, b)

👇
Ответ:
DEN23567893
DEN23567893
06.12.2022

ответ: 8831

Код на языке программирования Python

otv = []

for t in range(1, 100001):

   x = t

   a = 0; b = 0

   while x > 0:

       if x % 2 == 0:

           a += 1

       else:

           b += x % 10

       x = x // 10

   if a == 2 and b == 4:

       otv.append(t)

print(max(otv))

Объяснение:

Список otv будет содержать все значения t, подходящие по условию.

Переменная x меняется в процессе работы кода, а нам для ответа нужно изначальное значение x, поэтому изначальное значение сохраняем в переменной t.

В конце цикла for производим проверку, если a == 2 и b == 4, то добавляем к списку otv переменную t (т.к. по условию сначала выводится переменная a, потом b).

В конце кода выводим максимальное значение списка otv.

4,8(72 оценок)
Открыть все ответы
Ответ:
Andrey1privet4
Andrey1privet4
06.12.2022
// PascalABC.NET 3.2, сборка 1381 от 04.02.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var age:=ReadInteger('Введите возраст:');
  var gender:=ReadInteger('Введите пол (1-М, 2-Ж):');
  if gender=1 then
    case age of
    0..13:Writeln('Мальчик');
    14..20:Writeln('Юноша');
    21..70:Writeln('Мужчина');
    else Writeln('Старец')
    end
  else
    case age of
    0..13:Writeln('Девочка');
    14..20:Writeln('Девушка');
    21..70:Writeln('Женщина');
    else Writeln('Старушка')
    end
end.
4,5(79 оценок)
Ответ:
innarudenkoco
innarudenkoco
06.12.2022
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var c:=ReadlnChar('Буква:');
  Writeln('Буква встречается ',s.Where(p->p=c).Count,' раз(а)')
end.

Пример
Текст: а роза упала на лапу азора
Буква: а
Буква встречается 8 раз(а)

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString('Текст:');
  var m:=s.MatchValues('(\w)\1{1}').Distinct;
  foreach var cc in m do s:=s.Replace(cc,cc[1]);
  s.Println
end.

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