Остап Бендер пошел осматривать город. Он Советскую улицу, вышел на
Красноармейскую (бывшая Большая Пушкинская), пересек Кооперативную и снова
очутился на Советской у здания 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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

юрий201

24.07.2020 22:58

Переведите 10110111101 из двоичной в восьмеричную. с объяснением...

Сонечка2155

29.01.2023 17:19

Объясните , как решать 4 в огэ по информатике как действовать? хотя бы на примере, не голый ответ пользователь работал с каталогом декабрь. сначала он поднялся на один уровень...

jookyun

17.07.2021 07:43

Дан массив размерностью 7х6 из целых чисел. Напишите программу вычисления среднего арифметического элементов массива среди, двузначных чисел, у которых последняя цифра четная.(Паскаль)...

Mako9375

24.10.2022 01:22

A. Рыбалка ограничение по времени на тест1 секунда ограничение по памяти на тест256 мегабайт вводстандартный ввод выводстандартный вывод На выходные Володя поехал на рыбалку...

помогите1185

31.10.2020 12:41

Дан массив размерностью 6х6 из целых чисел. Напишите программу замены всех отрицательных элементов массива, стоящих на главной диагонали на значение первого элемента массива.(Паскаль)...

daramir02

28.09.2022 23:43

ТОЛЬКО ОТВЕТ И ЧТОБ БЫЛО ПРАВИЛЬНО...

23245086

09.12.2021 12:36

Чемпионат по устному счету Имя входного файла: стандартный ввод Имя выходного файла: стандартный вывод Ограничение по времени: 1 секунда Ограничение по памяти: 256 мегабайт...

Таисия281

15.04.2021 21:02

Чему будет равно значение логического выражения, если:...

sasha16971

09.09.2022 11:25

Есть задание и решение в виде кода, в коде ошибка скорее всего в четвёртой строке, в ответ выдаёт 119 7330.0, а должно быть 119 -7213. В файле содержится последовательность...

Катерина090807

14.05.2023 11:09

, ответ дать в Кбайт и в Мбайт с подробным решением и с формулами...

Ответ:

зяйка75542

20.04.2021 21:47

С ЦИКЛАМИ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифм. прогресии:');
Readln(n);
For i:=1 to n do a:=a+d;
Writeln(n, ' член арифметической прогресии равен : ', a);
End.
БЕЗ ЦИКЛОВ:
Program test ;
Var
d, a, :real;
n, i:integer;
Begin
Write ('введите a1: ');
Readln(a) ;
Write(' введите шаг арифм. прогресии: ');
Readln(d);
Write('введите номер члена арифметической прогресии: ');
Readln(n);
Writeln(' ответ: ', a+d*(n-1));
End.

0,0(0 оценок)

Ответ:

лолkjk

30.10.2020 21:04

Program znanija;
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )

for i:=1 to 20 do A[i]:=random(9); // заполняем массив

for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;

for i:=1 to 20 do write(A[i]:3); // Выводит весь массив

writeln(); // просто перевод на новую строку для красоты

writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку