Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
mr.Gubaydullin
0 / 0 / 0
Регистрация: 11.12.2011
Сообщений: 4
1

Функция: простое число, совершенное число, число Фиббоначи, евклид, Факториал, степень.

11.12.2011, 13:28. Просмотров 750. Ответов 1
Метки нет (Все метки)

Срочно нужна ваша помощь. все программы на школьном компе и я их не помню. они нужны срочно.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.12.2011, 13:28
Ответы с готовыми решениями:

Задано целое число N. Найти ближайшее к нему совершенное число
Задано целое число N. Найти ближайшее к нему совершенное число

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

Дано простое число Найти следующее простое число
Дано простое число n. Найти следующее простое число.

Вычислить первое простое число, превосходящее заданное натуральное число n
Вычислить первое простое число, превосходящее заданное натуральное число n....

Вычислить первое простое число, превосходящее заданное натуральное число n
9. Вычислить первое простое число, превосходящее заданное натуральное число n

1
Konferans
30 / 30 / 9
Регистрация: 23.11.2011
Сообщений: 58
11.12.2011, 14:48 2
Лучший ответ Сообщение было отмечено mr.Gubaydullin как решение

Решение

Факториал

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
n:integer;
f:longint;
function fakt(n:integer):longint;
begin
     if n=1 then fakt:=1
     else fakt:=n*fakt(n-1);
end;
begin
writeln('Введите число n длля вычисления n!');readln(n);
f:=fakt(n);
writeln('Для числа ',n,' значение факториала = ',f);readln;
end.
Добавлено через 14 минут
Числа Фибоначи

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure fibonachi(n,fn1,fn:integer);
          begin
          if n>0 then
             begin
             writeln(fn1+fn);
             fibonachi(n-1,fn,fn1+fn);
             end;
          end;
var n,a,b:integer;
begin
write('Vvedite chislo chlenov ryada Fidonachi: '); readln(n);
write('...sleduiushih za dvumya dannimi chlenami: '); readln(a,d);
fibonachi(n,a,b);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.12.2011, 14:48

Пользователь вводит натуральное число. Найти минимальную цифру этого числа и возвести введённое число в степень
Пользователь вводит натуральное число. Найти минимальную цифру этого числа и...

Логическая функция возвращает True, если её аргумент — простое число
Помогите написать программу: Логическая функция возвращает True, если её...

Создать программу, которая найдет наименьшее число, который взаимное простое число с 60 и больше, чем введенное число
Создать программу, которая найдет наименьшее число, который взаимное простое...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru