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

Остап Бендер пошел осматривать город. Он Советскую улицу, вышел на
Красноармейскую (бывшая Большая Пушкинская), пересек Кооперативную и снова
очутился на Советской у здания No28. Но это была уже не та Советская, которую он
в городе было две Советских улицы. Немало подивившись этому
обстоятельству, молодой человек остановился, чтобы подумать, куда идти дальше.
Напишите программу, которая из предложенных направлений выберет те, которые
кратны самому первому, его в расчет не принимать.
Формат ввода
Вводится строка целых чисел, записанных через пробел.
Формат вывода
Вывести числа, кратные первому введённому без повторений. Порядок вывода значения
не имеет.
Пример 1

Пример 2

Грабёж среди бела дня

Вдруг Ипполит Матвеевич почувствовал жар в ладонях и прохладу в животе. Прямо на
него шел незнакомый гражданин с добрым лицом, держа на весу, как виолончель, стул.
Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt

Ввод Вывод
28 14 7 56 84 56 5 56 3

56 84

Ввод Вывод
1 13 58 15 17 70 85 57

70 13 15 17 85 57 58

Показать ответ
Ответ:
Yaroslava0111
Yaroslava0111
10.01.2023 20:04
Заменить нечётные элементы по значению

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (a[i] mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Заменить нечётные элементы по индексу

program  raf105;

var  

 a:array[1..20] of integer;

 i,min: integer;

begin

min:= 10000;

writeln('Исходный массив:');

for i:=1 to 20 do

begin

 a[i]:= random(-30,20);

 writeln(a[i]);

 if a[i]<min

   then min:= a[i];

end;

writeln('Изменённый массив:');

for i:=1 to 20 do

begin

 if (i mod 2)<>0

   then a[i]:= min;

 writeln(a[i]);

end;

end.

Язык PascalABC
0,0(0 оценок)
Ответ:
MasterSporta13
MasterSporta13
27.04.2021 12:50

1) ответ: 12

a 1 2 3

b 1 2 4

2) ответ: i = 30

3) ответ: б), потому что условие проверяется перед началом работы очередного круга цикла.

3 (???) ) ответ: 2 раза. В ходе работы цикла переменная p должна стать равной 0.02

4) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен нулю, потом ему прибавляется в значении по единице, пока i не станет равным пяти (0,1,2,3,4,5). Итого к S прибавляется единица шесть раз.

Снизу практически анологично. Это максимально тупо, что просите объяснения к таким простым вопросам.

5) ответ: г)

Какое тут должно быть объяснение? Всё прекрасно видно, если посмотреть на саму задачу! Сначала i равен -1, потом ему прибавляется в значении по единице, пока i не станет равным 2 (-1,0,1,2). Итого к S прибавляется единица 4 раза.

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