Программы паскаль

[Katafrakt]

14. Число совершенно, если оно равно сумме всех своих делителей, кроме самого себя.

Пример: 6=1+2+3. Найдите все совершенные числа от 1 до 1000 и выведите их на экран.
15. Найдите остаток от деления двух чисел. Числа вводит пользователь.
16. Найдите n! N вводит пользователь. N!= 1*2* …*N
17. Напишите программу вычисления НОД двух чисел. Числа вводит пользователь.
18. Напишите программу вычисления НОД двух чисел. Числа вводит пользователь.
19. Напишите программу вычисления НОК двух чисел. Числа вводит пользователь.
20. Запросить у пользователя два числа. Числитель и знаменатель дроби. Вывести результат сокращения дроби, используя алгоритм нахождения НОД.
21. Вывести на экран все числа близнецы, которые меньше заданного числа N. N вводит пользователь.
Два нечетных простых числа, разнящихся на 2, назвали близнецами.
Например: 5 и 7, 7 и 9, 9 и 11…
22. Задать таблицу (i,j). I, J и элементы таблицы вводит пользователь. Вывести таблицу (i,j) симметричную относительно главной диагонали.

23. Задать таблицу (i,j). I, J и элементы таблицы вводит пользователь. ее на экран.
1) Вывести таблицу на экран.
2) Поменять местами столбцы справа налево.
3) Поменять местами строки сверху вниз в обратном порядке
4) Подсчитать сумму элементов, стоящих выше главной диагонали.
5) Найти min и maх число в таблице.
24. Вывести на экран концентричекие окружности разного цвета, которые «мигают».
25. Нарисовать светящееся солнце.
26. Нарисовать прямоугольники из верхнего левого угла в правый нижний.
27. Изобразить модель атома на экране.
28. Нарисовать звездное небо и солнечную систему.
29. Нарисовать дом с забором, светящееся солнце, дерево, по которому ползет божья коровка и лес перед домом.

КТО что может. Заранее благодарю

[Летучий_СкилетиК]

Что у вас не получается? если вы конечно что то пытались предпринять то выкладывайте какие проблеммы?

[Katafrakt]

я ниче не пытался я в этом програмировании дубовый

[Katafrakt]

мне все не обязательно что сможешь в ближайшее время

[Летучий_СкилетиК]

Задачи пустяковые, а вот если вы еще денюжкой вознагродили.

[Katafrakt]

сколько хочешь за это

[Летучий_СкилетиК]

не будем разводить флуд, заходитемой скайп maksim366780 или на мою кантактную страницу на форуме

[malish-z]

Помогите пожалуйста разобраться с программой, в чём ошибка, просто не понимаю до конца, как писать подпрограммы в Паскале. А условие такое : вычеслить z=(x1+y1)/(x2-y2), где х1,х2-корни уравнения 2x^2+x-c=0, a y1,y2 корни ax^2+x-4=0, нахождение корней квадратного уравнения оформить в виде подпрограммы.
Program P1;
uses crt;
var a,c,x1,x2,y1,y2,x:integer;
z,y:real;
Procedure sust (x1,x2,y1,y2,a,c,b,D:real);
begin
write('zadaite c=');
readln©;
D:=1+8*c;
if D>0 then begin
x1:=(-1+sqrt(D))/4;
x2:=(-1+sqrt(d))/4;
writeln('x1=',x1:5:2, 'x2=',x2:5:2);
end
else if D=0 then writeln ('x1=x2=', -1/4)
else writeln ('koreniv nemae');
write ('zadaite a=');
readln(a);
D:=1+8*a;
if D>0 then begin
y1:=(-1+sqrt(D))/2*a;
y2:=(-1-sqrt(D))/2*a;
writeln ('y1=',y1:5:2, 'y2=',y2:5:2);
end
else if D=0 then writeln('y1=y2=', -1/(2*a))
else writeln('koreniv nemae');
end;
begin
write('vvedite znachenie a,c=');
readln(a,c);
z:=(x1+y1)/(x2-y2);
writeln('z=',z:5:2);
readkey
end.

[Летучий_СкилетиК]

Ужас та какой!

...
z:=(x1+y1)/(x2-y2);
writeln('z=',z:5:2);...

ну и чему же равны

x1,y1,x2,y2

?, а я скажу = нуль, а делить на нуль нельзя!!
коли создали процедуры так используйте их.

[malish-z]

а, ну да, теперь-то мне стало всё понятно, спасибо за помощь