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

Из железной полосы нужно изготовить обруч, на соединение концов уходит d метров. написать программу вычисления радиуса обруча и проверить данные в ​

Показать ответ
Ответ:
seregaushakov13
seregaushakov13
13.05.2022 04:02

Программа:

Python:

import sys

max, min = -(sys.maxsize), sys.maxsize

c = 0

N = int(input('N = '))

print('Введите массив:')

arr = [int(input()) for i in range(N)]

for i in arr:

   if len(str(i)) == 2 and i % 3 == 0:

       if i < min:  min = i

       elif i > max:  max = i

if max != -(sys.maxsize):  print('Максимальное число:', max)

else: print('Нет максимального числа')

if min != (sys.maxsize):  print('Минимальное число:', min)

else: print('Нет минимального числа')

Pascal:

var

 arr: array of integer;

 N, i, max, min, j, c: integer;

procedure Symv(j: integer; var c: integer);

begin

 while j > 0 do begin

   j := j div 10;

   c += 1;

 end;

end;

begin

 max := -MAXINT;

 min := MAXINT;

 write('N = ');  readln(N);

 SetLength(arr, N);

 writeln('Введите элементы массива:');

 for i := 0 to N - 1 do readln(arr[i]);

 writeln(arr);

 

 for i := 0 to N - 1 do begin

   Symv(arr[i], c);

   if (c = 2) and (arr[i] mod 3 = 0) then begin

     if arr[i] < min then min := arr[i]

     else if arr[i] > max then max := arr[i]

   end;

   c := 0;

 end;

 

 if max <> -MAXINT then writeln('Максимальное число: ', max)

 else writeln('Нет максимального числа.');

 if min <> MAXINT then writeln('Минимальное число: ', min)

 else writeln('Нет минимального числа.');

end.

0,0(0 оценок)
Ответ:
555767
555767
29.10.2021 06:17

Привет мой друг.

Ты знаешь как прочитать данные из скачанного файла? - Нет?

Тогда я тебе подскажу. Для начала я скину тебе файл, после чего ты его скачаешь.

Сделал? - Хорошо

Теперь, когда ты его скачал, зайди на главный экран своего ПК/Ноутбука и нажми на эконку - Мой компьютер - Скачанные файлы - Выбери файл который я тебе отправил - Распаковать через Microsoft Exe.

Вот мой друг, я тебе подробно расказал как открыть и прочитать данные из файла который тебе скинули.

Если тебе не сложно то можешь сделать ответ лучшим, мне будет очень приятно.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота