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

Написать программу таким образом, чтобы:
1) массив состоял из 35 элементов вещественного
типа:
2) значения элементов массива должны меняться в
интервале от -12 до 115:
3) в результате выполнения программы элементы
массива должны располагаться по убыванию
неположительных чётных чисел.
p.s это все одна ​

👇
Открыть все ответы
Ответ:
Margogjf
Margogjf
13.07.2022

while True:

   n = int(input('ввести конечное число n '))

   answ = ''

   if n<=10:

       print("число должно быть больше 10")

   else:

       for i in range(10,n):

           answ = ''

           for j in str(i):

               answ+=j

           for b in range(len(answ)):

               if b>0:

                   if answ[b]!=answ[b-1]:

                       break

                   if b==len(answ)-1 and answ[b]==answ[b-1]:

                       print(answ)

   

Всегда выполнять

Ввод числа

Переменная ответ для его вывода

Проверка числа(больше ли оно 10)

Если больше

от 10 до n раз

аннулируем ответ

записываем в него число

от 0 до длинны числа

если элемент не первый

проверяем его, совпадает ли он с предыдущим

если нет, заканчиваем проверять, ибо цифры уже не все одинаковые

если проверили последнее число и всё совпадает, выводим ответ

4,5(66 оценок)
Ответ:
Яра3838367373
Яра3838367373
13.07.2022

Задача А

program Boom;

uses crt;

var

 a, b: integer;

begin

 Read(a, b);

 if a > b then Writeln('Наибольшее число ', a) else Writeln('Наибольшее число ', b);

end.

Тестовое решение

12

52

Наибольшее число 52

Задача Б

program Boom;

uses crt;

 

var

     a:array[1..4] of Integer;

     max:integer;

     i:byte;

Begin

for i:= 1 to 4 do

Begin

Write('Введите число:');

Read(a[i]);

End;

max := a[1];

for i:= 2 to 4 do

if a[i] > max then

max := a[i];

Write('Наибольшее число:');

WriteLn(max);

End.

Тестовое решение:

Введите число:12

Введите число:53

Введите число:34

Введите число:63

Наибольшее число:63

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