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

сиквейн организация 1.организация 2.описание темы двумя прилагательными или причастием 3.описание действий связанных с темой,тремя словами 4.фраза из четырёх слов,показывающие отношение к теме 5.синоним,выражений одним словом,повторяющий суть темы

Показать ответ
Ответ:
даша084
даша084
25.09.2022 11:05
Классификация на русском языке: Части речи: (самостоятельные, служебные, междометия), звуки: (твёрдые, мягкие).
Суффиксы: (действительные, страдательные)
Классификация на географии: Мировой океан: (Воды суши, вода в атмосфере, вода в живых организмах), воды суши: (реки, озёры, каналы).
Классификация на математике: Уравнения: (простые, сложные), числа :(двухзначные и однозначные).
Классификация на биологии: Вегетативные органы растений: (корень, побег), строение цветка: (чашеложе, лепестки, пестик, тычинка)
0,0(0 оценок)
Ответ:
blackfox30
blackfox30
14.06.2020 14:58
Const
  m=5;
  n=3;
var
  i,j,k:integer;
  a:array[1..m,1..n] of integer;
begin
  Randomize;
  Writeln('Исходный массив');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(999)+1;
      Write(a[i,j]:4);
      if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
      end;
    Writeln
  end;
  if k>0 then begin
    Writeln('Искомые элементы');
    for i:=1 to m do
      for j:=1 to n do
        if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
    end
  else
    Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.

Пример работы программы
Исходный массив
 424 672 826
 546 587 413
 507 211 884
 252 781 518
 750 656 359
Искомые элементы
424
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота