Задания на массивы, массивы и некоторые другие Опции

[NightPaladin]

Народ очень прошу о помощи надо в кратчашие сроки разобраться со следующими заданиями

5. Дано натуральное число N. Найти наибольшее число M (M>1), на которое сумма цифр в цифровой записи числа N делится без остатка. Если такого числа нет, то вывести слово “НЕТ”. Пример. N=12345. M=5. Сумма цифр числа N (15) делится на 5.

6. В массивы вводятся элементы двух невозрастающих последовательностей Аi и Вj целых чисел, которые содержат 6 и 8 элементов соответственно. Необходимо вывести на экран общий список значений элементов этих последовательностей по их возрастанию без создания третьего массива.
7. Ввести массив чисел размером К*М (К и М заданные числа). "Особым" элементом массива назовем элемент, который является наибольшим в столбце и одновременно наибольшим в строке.
Определить количество "особых" элементов в введенном массиве.

8. Задана строка символов из 60 символов. Пользователь вводит подстроку, длинной от 5 до 20 символов. Выделить из исходной строки все подряд идущие последовательности, из которых можно составить введенную пользователем подстроку любой перестановкой символов. При этом, если в последовательности не хватает символов, то можно использовать 2 раза не более 3 символов.


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

Также были предложены следующие задачи, но по их описанию я так и не понял, чего ждут: аналитического решения или тоже на pascale взгляните пожалуйста и вы:

1. Число 127, 45 перевели из десятичной системы счисления в восьмеричную систему счисления. Найдите 1998 цифру после запятой.

2. Сумму восьмеричных чисел 17+1700+170000+ …..+1700 000000 перевели в шестнадцатеричную систему счисления. Найдите в записи числа, равного этой сумме, пятую цифру слева.
3. Заданы логические функции: F1 = 1 на наборах 0, 4 и

Требуется:
а) получить кратчайшую форму записи функции F2
б) проверить, является ли она тождественной функции F1 Ответ: F1 не тождественна F2

4. По обвинению в ограблении перед судом предстали Иванов, Петров, Сидоров. Следствием установлено следующее:
1) Если Иванов не виновен или Петров виновен, то Сидоров виновен.
2) Если Иванов не виновен, то Сидоров не виновен.
Виновен ли Иванов?

[klem4]

5) как-то так :

uses crt;
const n=10;
var i,s,m:integer;
Begin
   clrscr;
   readln(i);
   readln(m);
   repeat
       inc(s,i mod n);
       i:=i div n;
   until i<1;
   writeln('s=',s);
   if s mod m = 0 then
    writeln('Yes')
     else writeln('No');
   readln
end.

Сообщение отредактировано: klem4 - 7.05.2005 19:21