Помоги решить задачки в Паскаль

[sergeyf1]

Задача 1.

Составить программу на языке программирования и в блок-схеме.
Дано натуральное число m. Указать все тройки натуральных чисел x, y, z , удовлетворяющие условию m=x3+y3+z3.


Задача 2.

Составить программу на языке программирования и в блок-схеме.
Для любых значений m и n вычислить значения биномиального коэффициента

Задача 3.

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа a и b, не равные нулю одновременно. Вычислить НОД(a,b) – наибольший общий делитель a и b.


Задача 4.

Составить программу на языке программирования и в блок-схеме.
Дано натуральное n. Подсчитать количество решений неравенства x2+y2<n в натуральных (неотрицательных) целых числах, не используя действий с вещественными числами.


Задача 5.

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа n и k, n>1. Напечатать k десятичных знаков числа 1/n. При наличии двух десятичных разложений выбирается то из них, которое не содержит девятки в периоде. Программа должна использовать только целые переменные.


Задача 6.

Составить программу на языке программирования и в блок-схеме.
Дано натуральное число n>1. Определить длину периода десятичной записи дроби 1/n.


Задача 7.

Составить программу на языке программирования и в блок-схеме.
Даны натуральные числа a и b, причём b>0. Найти частное и остаток при делении a на b, оперируя лишь целыми числами и не используя операции div и mod, за исключением деления на 2 чётных чисел; число шагов не должно превосходить C1 log(a/b)+C2 для некоторых констант C1, C2.


Задача 8.

Составить программу на языке программирования и в блок-схеме.
Дан двумерный массив целых чисел. Найти количество различных чисел среди элементов этого массива.


Задача 9.

Составить программу на языке программирования и в блок-схеме.
Даны два двумерных массива целых чисел. Найти количество общих элементов в этих массивах, указав значения.


Задача 10.

Составить программу на языке программирования и в блок-схеме.
Даны две последовательности целых чисел. Выяснить является ли вторая последовательность подпоследовательностью первой, то есть можно ли из первой вычеркнуть некоторые члены так, чтобы осталась вторая.


Задача 11.

Составить программу на языке программирования и в блок-схеме.
Напечатать все перестановки 1…n так, чтобы каждая следующая перестановка получалась из предыдущей путём перестановки двух соседних чисел.


Задача 12.

Составить программу на языке программирования и в блок-схеме.
Пусть a[1],…,a[n] – целые числа. Требуется построить массив b[1],…,b[n], содержащий те же числа, для которых b[1] <=…<= b[n].
Среди чисел a[1],…,a[n] могут быть равные. Требуется, чтобы каждое целое число входило в b[1],…,b[n] столько раз, сколько и в a[1],…,a[n].

[DarkUser]

Сколько за каждую задачу???

[JH]

Сообщение от DarkUser

Сколько за каждую задачу???

Не будь таким меркантильным кю.

Злобные программисты не помогают, и, на юфорум перестанут ходить школьники и студенты за решениями лабов.

[DarkUser]

Сообщение от Jahongir Haitov

Злобные программисты не помогают, и, на юфорум перестанут ходить школьники и студенты за решениями лабов.

Так он-же не помочь просит, а сделать за него...

[sergeyf1]

нет, именно помочь, так как я в этом несмыслю.

[Nadir Zaitov]

Сообщение от sergeyf1

нет, именно помочь, так как я в этом несмыслю.

Не если помочь!

Сообщение от sergeyf1

Дано натуральное число m. Указать все тройки натуральных чисел x, y, z , удовлетворяющие условию m=x3+y3+z3.

Эта решается через два вложенных цикла
(пишу только тело, обвязку с объявлениями и вводом числа M и проверкой, что оно больше 2-х оставляю Вам).

For i:=1 to M-2 do
For j:=1 to M-1-i do
writeln(i,j,M-i-j);

[Nadir Zaitov]

Сообщение от sergeyf1

Составить программу на языке программирования и в блок-схеме. Для любых значений m и n вычислить значения биномиального коэффициента

Нужно б написать фнкция вычисления факториала:

function Fact(N:Integer):Integer;
var i,F:Integer;
Begin
    If N<0 than Fact:=0
    else
    If N<2 than 
                Fact:=1;
             else
                Begin
                   F:=1;
                   For i:=1 to N-1 do F:=F*i;
                   Fact:=F
                End;
               {В случае,если требовалось решить рекурсией, то этот блок нужно было заменить на Fact:=N*Fact(N-1)}
End;

А дальше в основной програмmке вызвать Fact(M)/Fact(N)/Fact(M-N), опять же проверьте, что 0<N<=M.

[Nadir Zaitov]

Писать дальше много и вы в програмке ничего не поймете... лучше теория:

Составить программу на языке программирования и в блок-схеме. Даны натуральные числа a и b, не равные нулю одновременно. Вычислить НОД(a,b) – наибольший общий делитель a и b.

Пусть даны числа A и B. Будем считать A>B (Иначе НОД(A,B)=НОД(B,A);

Далее если A mod Б = 0, то НОД (А,Б)=Б иначе НОД (А,Б)=НОД (Б,A mod Б).

Процесс быстро заканчивается, так что можно использывать рекурсию.

[Nadir Zaitov]

Сообщение от sergeyf1

Дано натуральное n. Подсчитать количество решений неравенства x2+y2<n в натуральных (неотрицательных) целых числах, не используя действий с вещественными числами.

В чем задача? Детский сад. Решайте двумя циклами, если речь идет о квадратах... интереснов первой задачке речь шла о кубах???

[Dolphin]

Сообщение от sergeyf1

не используя действий с вещественными числами.

Не понимаю я таких условий... Скоро скажут "сопроцессор не юзать, память не юзать"....