Каталог по темам

Задачи

Страница: << 1 2 3 4 5 6 7 >> [Всего задач: 277]

Задача 64141

Тема:

[

Вложенные циклы

]

Сложность: 2
Классы: 8

Вводится число N, а затем N чисел - элементов массива (1<=N<=100),
элементы массива - числа из диапазона Integer.
Выведите два числа - номера мест в массиве, на которых стоят
одинаковые элементы, или два числа 0 (то есть 0 0), если все элементы
различны. Если есть несколько пар чисел, являющихся
ответом, выведите любую из них.


Пример входного файла
5
1 2 1 3 4

Пример выходного файла
1 3

Пример входного файла
4
1 2 3 4

Пример выходного файла
0 0

Прислать комментарий

Решение

Задача 64146

Тема:

[

Знакомство с циклами

]

Сложность: 2
Классы: 8

Во входном файле записана последовательность
натуральных чисел, не превышающих 1000. Последовательность заканчивается
числом 0. Количество чисел в последовательности не превышает 100.

Выведите в выходной файл количество чисел в последовательности (не считая 0),
а потом сами числа.

Пример входного файла
1 3 5 0

Пример выходного файла
3
1 3 5

Прислать комментарий

Решение

Задача 64147

Тема:

[

Вложенные циклы

]

Сложность: 2
Классы: 8

Во входном файле записана последовательность чисел в странном формате:
у каждого числа сначала записано количество цифр в этом числе, а потом через
пробел - сами цифры. Последовательность заканчивается числом 0.

В выходной файл нужно вывести сначала количество чисел в последовательности,
а потом - сами числа.

Количество чисел в последовательности не превышает 1000. В числах - не более
4-х знаков.

Примеры:
Пример 1
   input.txt                         output.txt              
2 2 7 3 3 5 1 0                      2 27 351                              

Пример 2
   input.txt                         output.txt              
1 1 0                                1 1                                    

Пример 3
   input.txt                         output.txt              
4 1 2 3 4 2 4 3 0                    2 1234 43

Прислать комментарий

Решение

Задача 64149

Тема:

[

Одномерные массивы

]

Сложность: 2
Классы: 8

Дан массив. Требуется удалить из него элемент, стоящий на месте номер B,
сдвинув все последующие элементы влево.

Входные данные
Во входном файле записано сначала число N - количество элементов массива
(2<=N<=100), затем N чисел из диапазона Integer - элементы массива,
а затем число B (1<=B<=N).

Выходные данные
В выходной файл выведите N-1 число - элементы массива с удаленным B-м элементом.

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

То есть ввод данных осуществляется следующим фрагментом:
read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b);

А вывод - следующим:
for i:=1 to n-1 do write(fo,a[i],' ');

Необходимые фрагменты вы можете найти в файле P128.PAS

Пример входного файла
5
1 3 5 6 7
2

Пример выходного файла
1 5 6 7

Текст программы P128.PAS

const nmax=100;

var a:array[1..nmax] of integer;
    n:integer;
    i:integer;
    b:integer;
    fi,fo:text;

begin
assign(fi,'input.txt');
reset(fi);
assign(fo,'output.txt');
rewrite(fo);

read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b);

{Вы должны писать здесь}

for i:=1 to n-1 do write(fo,a[i],' ');
close(fi);
close(fo);
end.

Прислать комментарий

Решение

Задача 64150

Тема:

[

Одномерные массивы

]

Сложность: 2
Классы: 8

Дан массив. Требуется вставить в него на место номер B элемент, равный C,
сдвинув все последующие элементы (включая элемент, стоящий на B-ом месте)
вправо.

Входные данные
Во входном файле записано сначала число N - количество элементов массива
(2<=N<=100), затем N чисел из диапазона Integer - элементы массива,
затем число B (1<=B<=N) и число C (из диапазона Integer).

Выходные данные
В выходной файл выведите N+1 число - элементы массива с вставленным элементом.

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

То есть ввод данных осуществляется следующим фрагментом:
read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b,c);

А вывод - следующим:
for i:=1 to n+1 do write(fo,a[i],' ');

Необходимые фрагменты вы можете найти в файле P129.PAS


Пример входного файла
5
1 3 5 6 7
2 10

Пример выходного файла
1 10 3 5 6 7

Текст программы P129.PAS

const nmax=100;

var a:array[1..nmax] of integer;
    n:integer;
    i:integer;
    b,c:integer;
    fi,fo:text;

begin
assign(fi,'input.txt');
reset(fi);
assign(fo,'output.txt');
rewrite(fo);

read(fi,n);
for i:=1 to n do read(fi,a[i]);
read(fi,b,c);

{Вы должны писать здесь}

for i:=1 to n+1 do write(fo,a[i],' ');
close(fi);
close(fo);
end.

Прислать комментарий

Решение

Страница: << 1 2 3 4 5 6 7 >> [Всего задач: 277]