Вывести на экран все нечетные числа из диапазона от a до b, кратные 7(a< =b)

👇

Увидеть ответ

Ответ:

bi2002

22.04.2020

program numab;

var

a, b, i: Integer;

begin

Write ('Введите А, В: ');

ReadLn (a, b);

for i := a to b do

if (i mod 2 <> 0) and (i mod 7 = 0) then

Write (i, ' ');

ReadLn;

end.

4,6(8 оценок)

Открыть все ответы

Ответ:

AbsoJl

22.04.2020

Задача 3: Гвоздики

В дощечку в ряд вбито 10 гвоздиков, таким образом, получилось 9 последовательных промежутков между ними. Длины промежутков (подряд, слева направо) оказались равны

7, 2, 8, 4, 3, 9, 5, 1, 6.

Между некоторыми соседними гвоздиками можно натянуть верёвочку, будем считать длину этой верёвочки равной длине промежутка. Вам необходимо привязать верёвочки так, чтобы к каждому гвоздику была привязана верёвочка хотя бы с одной стороны, при этом суммарная длина всех верёвочек была бы минимальной.

ответ запишите в виде последовательности из 9 чисел, равных 0 или 1. Число 0 означает, что в соответствующем промежутке нет верёвочки, число 1 означает, что в этом пр

Объяснение:

4,6(55 оценок)

Ответ:

Yanawer

22.04.2020

В начале мы создаем массив случайных элем.
Потом работаем с ним.
Нам нужны 2 переменные:
1 - переменная, для сохранения результата (номера).
2 - переменная флажок.
Мы обходим весь массив ПО СТОЛБЦАМ.
В начале обхода конкретного столбца переменной флажка присвоим 1.
Сравниваем текущий элемент столбца с последующим,
если они не равны то ставим флажок 0

Код:
//Размерность массива
const n = 3;
//Сам массив
var
ar : array[1..n,1..n] of integer;
//Переменные для работы с массивом
var
i,j : integer;
//Переменные для поиска столбца
//f - переменная флажок, которая по окончанию обхода столбца будет
//показывать одинаковы ли элементы в нем
//numb - переменная, в которой сохраним номер столбца с
//одинаковыми значениями элементов.
var
f,numb : integer;
begin
//Создание и вывод на экран массива
//Элементы генерируются случайным образом
//
for i:=1 to n do
begin
for j:=1 to n do
begin
ar[i,j] := random(2);
write(ar[i,j]:3);
end;
writeln;
end;
//

//Вот сам алгоритм поиска
//
//Записываем в numb значение -1
//Если в процессе работы значение не изменится (-1)
//То означает, что в массиве нет одинаковых столбцов
numb := -1;

//Идем по массиву
//
for j:=1 to n do
//Момент начала конкретного j столбца
  begin
//записываем в f значение 1
//Предполагаем, что столбец одинаков
//Если в конце обхода конкретного столбца значение f=1
//Значит, что данный столбец одинаков
  f := 1;

//Идем по столбцу
// n-1
//(т.к сравниваем текущий со следующим)
for i:=1 to n-1 do
begin
//Сравниваем текущий элемент столбца, со следующим
if (ar[i,j] <> ar[i+1,j]) then
//Если они не равны, то изменяем значение флажка f на 0
  f := 0;
end;
//Конец обхода конкретного столбца

//Если столбец одинаков
if (f = 1) then
//то записываем его номер в numb
  numb := j;
end;
//

//Вывод результата
if (numb <> -1) then
writeln('Столбец №: ',numb)
else
writeln('Нет ни одного одинакового столбца');
end.

4,8(86 оценок)

Это интересно:

Компьютеры-и-электроника

20.07.2021

Как легко воспроизводить файлы WMV на Ubuntu?...

Компьютеры-и-электроника

06.05.2020

Как перевернуть дисплей компьютера вверх ногами: детальное руководство...

Стиль-и-уход-за-собой

23.02.2022

Как ухаживать за вьющимися от природы волосами...

Образование-и-коммуникации