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

Дана таблица. Запиши ответ. Название модуля PC2−5700 нужно найти пропускную модулей памяти в Гбит/с

Показать ответ
Ответ:
Лилиана4312
Лилиана4312
10.01.2021 19:08
Program pr9;
type mas = array[-10..10] of integer;
const n = 5;
var s, i:integer;
a:mas;
begin
     randomize;
     writeln('Номера четных отрицательных элементов:');
     s := 0;
     for i := 1 to n do
     begin
          a[i] := random(1000) - 500;{Числа рандомизируются от -500 до 500}
     end;
     for i:=1 to n do
     begin
          write(a[i], ' ');
     end;
     for i:=1 to n do
     begin
          if (a[i] < 0) and (a[i] mod 2 = 0)
          then
          begin
               write(i, ' ');
               s := s + a[i];
          end;
     end;
     writeln;
     writeln('Их сумма = ', s);
end.
0,0(0 оценок)
Ответ:
olga877
olga877
07.10.2022 11:01
Поскольку в условии не сказано, включать ли в множество повторяющиеся символы, принято решение для простоты их включать.

const
  nn = 100;{максимальная мощность множества}

var
  m: array[1..nn] of char;
  i, n, n1: integer;
  s1, s2: string;
  alpha, digit: set of char;

begin
  alpha := ['А'..'я'];
  digit := ['0'..'9'];
  n := 0;
  Writeln('Введите строку символов первого множества');
  Readln(s1);
  Writeln('Введите строку символов второго множества');
  Readln(s2);
  for i := 1 to Length(s1) do
    if (s1[i] in alpha) then begin n := n + 1; m[n] := s1[i] end;
  for i := 1 to Length(s2) do
    if (s2[i] in digit) then begin n := n + 1; m[n] := s2[i] end;
  Writeln('Результирующее множество');
  for i := 1 to n do Write(m[i]:2)
end.

Тестовое решение:
Введите строку символов первого множества
-This 1*2 П*ро=изvolnый наbop сим;волob**
Введите строку символов второго множества
Отсюда 1-(4)=5 только цифры 33.634 berem
Результирующее множество
 П р о и з ы й н а с и м в о л 1 4 5 3 3 6 3 4
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота