IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Задачка на массивы
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


1)Входной файл input.txt
Выходной файл output.txt
Ограничение по времени 2 сек.


Напишите программу, читающую из входного файла массив целых чисел ai, и выводящую в выходной файл количество пар i, j, таких, что i ≠ j и ai делится нацело на aj.
Формат входных данных
Во входном файле записано сначала количество элементов в массиве, (1 ≤ n ≤ 1000), затем сами элементы (1 ≤ai ≤ 1000000000).
Формат выходных данных
Выведите одно число — искомое число пар.
Пример

input.txt output.txt
5 5 2 1 2 6 8

2)
Входной файл input.txt
Выходной файл output.txt
Ограничение по времени 2 сек.


В n пробирках содержаться образцы веществ. Объем i-го вещества равен vi, а масса — mi. Все образцы сливают в общую пробирку.

Известно, что если плотности веществ, из которых состоят образцы различны, то более тяжелое вещество будет располагаться ниже в пробирке, а если плотности одинаковы, то образцы перемешаются.

Выведите полученное в результате расположение образцов в пробирке.

Например, если объемы образцов равны 3, 10, 2, 5, 2, а массы соответственно 6, 10, 4, 10, 6, то плотности веществ равны 2, 1, 2, 2, 3 и образцы расположатся так: внизу образец 5, далее перемешаны образцы 1, 3 и 4, и сверху образец 2.
Формат входных данных
Во входном файле записано сначала количество образцов, (1 ≤ n ≤ 1000), затем n чисел vi, затем n чисел mi. (vi и mi — целые положительные числа не больше ста)
Формат выходных данных
Выведите расположение образцов от нижних к верхним. Образцы нумеруются в том порядке, в котором они заданы во входном файле. Если некоторые образцы перемешались, то выведите их через черточку, отсортировав их номера по возрастанию (см. пример).
Примерinput.txt output.txt
5 3 10 2 5 2 6 10 4 10 6 5 1-3-4 2
1 100 100 1
2 100 100 100 99 1 2
4 1 1 1 1 3 5 3 5 2-4 1-3

3)
Входной файл input.txt
Выходной файл output.txt
Ограничение по времени 2 сек.


Петя написал на доске n попарно различных чисел ai. Затем он несколько раз сделал следующие действия: нашел максимальное число, переписал его в блокнот, стер его с доски вместе со всеми числами справа он него.

Например, если на доске написаны числа: 1, 3, 2, 5, 4, то Петя перепишет в блокнот число 5, сотрет с доски числа 5 и 4, перепишет число 3, сотрет 3 и 2, перепишет число 1, сотрет его и после на доске не останется ни одного числа.

Определите, какие числа будут переписаны в блокнот, когда на доске не останется ни одного числа.
Формат входных данных
Во входном файле записано сначала количество чисел на доске, (1 ≤ n ≤ 1000), затем сами числа (1 ≤ai ≤ 1000000000).
Формат выходных данных
Выведите в выходной файл числа, которые будут переписаны в блокнот, в том порядке, в котором они будут переписаны.
Пример input.txt output.txt
5 1 3 2 5 4 5 3 1

помогите хотяб чем-нибудь =)
я вообще невкуриваю как входной и выходной фаил ставить=(
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2





Группа: Пользователи
Сообщений: 7
Пол: Мужской

Репутация: -  0  +


как задать входной и выходной фаил помогите плз=(
Входной файл input.txt
Выходной файл output.txt

вот первая но без ввода и вовода хелп плз
Program one;
var a: array [1..10] of integer;
b: array [1..10] of integer;
i,j,k:integer;
Begin
k:=0;
for i:=1 to 10 do begin
writeln('ввести',i);
readln(a[i]);
end;
for i:=1 to 10 do begin
for j:=1 to 10 do begin
if a[i]<>a[j] then
if (a[i])mod(a[j])=0 then k:=k+1 else
end;
end;
writeln(k);
end.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 20.09.2020 3:17
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name