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

Склавиатуры последовательно вводятся 15 разных целых чисел, которые размещаются в массиве. напишите программу, которая выводит на экран количество элементов массива кратных 5 и минимальное среди подходящих под это условие.

👇
Ответ:
AdelinaArMi
AdelinaArMi
04.12.2021
Const n = 15;
var a:array[1..n]of integer;
i,m,min5:integer;
f:boolean;
begin
  for i:=1 to n do begin
    write('Введите ',i,' член массива ');
    readln(a[i]);
    if a[i] mod 5=0 then begin
      m:=m+1;
      if not f then begin
        min5:=a[i];
        f:= not f;
      end;
      if (f) and (a[i]<min5) then min5:=a[i];
    end;
  end;
  writeln('Кратных 5: ',m:3,' Минимальный: ',min5:4);
end.

Тестовое решение
Введите 1 член массива 13
Введите 2 член массива 10
Введите 3 член массива 15
Введите 4 член массива 5
Введите 5 член массива 25
Введите 6 член массива 23
Введите 7 член массива 12
Введите 8 член массива 32
Введите 9 член массива 11
Введите 10 член массива 21
Введите 11 член массива 43
Введите 12 член массива 15
Введите 13 член массива 25
Введите 14 член массива 13
Введите 15 член массива 14
Кратных 5:  6    Минимальный:  5
4,4(48 оценок)
Открыть все ответы
Ответ:
Alina182004
Alina182004
04.12.2021

Программа на PascalABC

Program 29844007;

uses  

 GraphABC;

var  

 XL1,YL1,XR1,YR1:integer;  ///координаты первого прямоугольника

 XL2,YL2,XR2,YR2:integer; ///координаты второго прямоугольника

 XL0,YL0,XR0,YR0:integer;  ///координаты результата

s:string; ///строка для вывода результатов;

begin

 Window.SetSize(700,700);  

 writeln('Первый прямоугольник: ');

   writeln('Введите X левого нижнего угла ');read(XL1);

   writeln('Введите Y левого нижнего угла ');read(YL1);

   writeln('Введите X правого верхнего угла ');read(XR1);

   writeln('Введите Y правого верхнего угла ');read(YR1);

 writeln('Второй прямоугольник: ');

   writeln('Введите X левого нижнего угла ');read(XL2);

   writeln('Введите Y левого нижнего угла ');read(YL2);

   writeln('Введите X правого верхнего угла ');read(XR2);

   writeln('Введите Y правого верхнего угла ');read(YR2);

 if XL1<XL2 then XL0:=XL1 else XL0:=XL2;

 if YL1<YL2 then YL0:=YL1 else YL0:=YL2;

 if XR1<XR2 then XR0:=XR2 else XR0:=XR1;

 if YR1<YR2 then YR0:=YR2 else YR0:=YR1;

/// Выводим сначала результирующий прямоугольник синим цветом

 Brush.Color := clBlue;

 Rectangle(XL0,700-YL0,XR0,700-YR0);

/// Рисуем первый прямоугольник красным цветом

 Brush.Color := clRed;

 Rectangle(XL1,700-YL1,XR1,700-YR1);

/// Выводим второй прямоугольник зелёным

 Brush.Color := clGreen;

 Rectangle(XL2,700-YL2,XR2,700-YR2);

/// Выводим кординаты

Brush.Color := clWhite;

 s:='Координаты левого нижнего угла: '+ IntToStr(XL0)+' '+IntToStr(YL0);

 TextOut(0,0,s);

 s:='Координаты правого верхнего угла: '+ IntToStr(XR0)+' '+IntToStr(YR0);

 TextOut(0,20,s);

end.

Пример вывода на прикреплённом рисунке.


Даны два прямоугольника, стороны которых параллельны или перпендикулярны осям координат. известны ко
4,6(98 оценок)
Ответ:
BPAN321
BPAN321
04.12.2021

Понятие «информационного ресурса общества» (ИРО) является одним из ключевых понятий социальной информатики. Широкое использование этого понятия началось после выхода в 1984 году книги Громова Г.Р. «Национальные информационные ресурсы: проблемы промышленной эксплуатации».

Информационный ресурс - это знания, подготовленные для целесообразного социального использования.

Понятие ИРО, накопленных в обществе знаний, может быть рассмотрено в узком и широком смысле слова.

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

ИРО в широком смысле слова включают в себя все отчужденные от носителей и включенные в информационный обмен знания, существующие как в устной, так и в материализованной форме.

Понятие ресурс определяется в Словаре русского языка С.И. Ожегова как запас, источник чего-нибудь.

Что же касается информационных ресурсов, то это понятие является сравнительно новым. Оно еще только начинает входить в жизнь современного общества, хотя в последние годы становится все более употребительным не только в научной литературе, но и в общественно-политической деятельности. Причиной этого, безусловно, является глобальная информатизация общества, в котором все больше начинает осознаваться особо важная роль информации и научных знаний.

Для классификации информационных ресурсов могут быть использованы следующие их наиболее важные параметры:

тематика хранящейся в них информации;форма собственности – государственная (федеральная, субъекта федерации, муниципальная), общественных организаций, акционерная, частная;доступность информации – открытая, закрытая, конфиденциальная;принадлежность к определенной информационной системе – библиотечной,- архивной, научно-технической;источник информации – официальная информация, публикации в СМИ, статистическая отчетность, результаты социологических исследований;назначение и характер использования информации– массовое региональное, ведомственное;форма представления информации – текстовая, цифровая, графическая, мультимедийная;вид носителя информации – бумажный, электронный.
4,6(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ