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

Заполнить одномерный массив, состоящий из 20 элементов, случайными числами из промежутка [-100; 100]. вывести элементы и их индексы, кратные заданному числу (число вводится с клавиатуры). надо написать программы на языке с++.

👇
Ответ:
aiau2004
aiau2004
15.04.2020
Var a:array[1..20] of integer;
n,i:integer;
begin
read(n);
for i:=1 to 20 do begin
a[i]:=random(+201)-100;
if (a[i] mod n = 0) and (i mod n = 0) then begin
write('a[i]=',a[i],' i=',i);
writeln();
end;
end;
end.
4,8(94 оценок)
Открыть все ответы
Ответ:
арина1382
арина1382
15.04.2020
Rem BASIC-256
cls
errors = 0
print "Введите текст > ";

rem Пользователь вводит текст
input a$

rem Перебираем все буквы с начала и до предпоследней
for i=1 to length(a$)-1

rem Если встречаем букву Ч или Щ
if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then

rem Тогда проверяем следующую за ней букву.
rem Если это буква я, тогда подсчитываем очередную ошибку
if mid(a$, i + 1, 1) = "я" then errors = errors + 1
end if

rem Переходим к следующей букве
next i

rem Вывод результата
print "Количество ошибок в тексте ";
print errors

rem Конец программы
end
4,5(18 оценок)
Ответ:
livadin3105
livadin3105
15.04.2020

Пояснение:

Если ввод осуществляется через файл, то он должен называть "Слова.txt" и находиться в одной директории с исполняемым файлом. Выбрать нужный вариант ввода можно просто введя цифру в перовом input.

Код:

# -*- coding: utf-8 -*-

format = int(input("Считать слова из файла (введите 1)\nВводить слова в консоль (введите 2)\nВвести слова в одну строку(введите 3)\nВыбор: "))

words = []

answer = []

if format == 1:

  f = open('Слова.txt', "r", encoding='utf-8')

  line = f.readline()

  while line:

      for i in line.split(", "):

          words.append(i)

      line = f.readline()

  f.close()

elif format == 2:

  n = int(input("Введите кол-во слов - "))

  for i in range(n):

      words.append(input("Вв. слол - "))

elif format == 3:

  n = input("Введите строку - ")

  for i in n.split(", "):

      words.append(i)

else:

  print("Неправильно введен номер ответа")

word = input("Введите поисковое слово - ")

for i in words:

  for j in list(word):

      if len(set(word).intersection(set(i))) == len(i):

          answer.append(i)

          break

print(", ".join(answer))

Текст для документа:

рыба, рак, щука, лебедь, карась, пескарь, баня, бубен, столб, баян, барыня

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