Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Верно ли, что это число содержит ровно три одинаковые цифры? Дано натуральное число n (n ≤ 9999). Верно ли, что это число содержит ровно три одинаковые цифры, как, например, числа 6676, 4544, 0006 и т.д.? https://www.cyberforum.ru/ turbo-pascal/ thread183404.html	Двойной факториал Turbo Pascal Пусть n - натуральное число и пусть n!!означает 135...n для нечетного n и 24....*n для чётного n. Для заданного натурального n вычислить: а) n!!
Turbo Pascal Определить принадлежность точки к графику https://www.cyberforum.ru/ turbo-pascal/ thread183381.html Пусть D - заштрихованная часть плоскости и пусть U определяется по x и y следующим образом (запись(x, y)Є D означает, что точка с координатами x, y принадлежит D): Даны действительные числа x, y. Определить U.	Turbo Pascal Сортировка массива по возрастанию Подскажите что будет в С2 после выполнения цикла(выделено) uses crt; const n=10; var a: array of integer; i,j: integer; c: integer; c2: integer; begin clrscr; for i:=1 to n do https://www.cyberforum.ru/ turbo-pascal/ thread183380.html
Преобразование строк Turbo Pascal Очень прошу помочь с решение задачи: Из заданного предложения, начиная с первой встретившейся буквы "a", скопировать в новую строку все символы до первой встретившейся буквы "Y". Напечатать исходный текст и поулченную строку. Добавлено через 24 минуты Народ пожалуйстааа, не понимаю я редактирование строк, очень нужно	Turbo Pascal Верно ли, что это цисло содержит ровно три одинаковые цифры https://www.cyberforum.ru/ turbo-pascal/ thread183369.html Дано натуральное число n (n ≤ 9999).Верно ли, что это цисло содержит ровно три одинаковые цифры, как, например, числа 6676, 4544, 0006 и т.д.? Решите люди срочно!!!! Срочно!!!
Turbo Pascal Найти площадь сектора https://www.cyberforum.ru/ turbo-pascal/ thread183367.html Найти площадь сектора, радиус которого равен 13.7, а дуга содержит заданное число радиан φ. Срочно пожалуйста!!! Очень нужно!	Turbo Pascal Пусть D - заштрихованная часть Пусть D - заштрихованная часть плоскости (рис.3, а - е) и пусть U определяется по x и y следующим образом (запись(x, y)Є D означает, что точка с координатами x, y принадлежит D): Решите поб буквой Г
Turbo Pascal Где почитать о процедурах и функциях https://www.cyberforum.ru/ turbo-pascal/ thread183363.html Народ, подскажите где на форуме можно найти книгу, или теорию про ф-ции и процедуры. Заранее балгодарен.	Turbo Pascal Определить значение угла для минутной стрелки Помогите пожалуйста немогу решить эту задачу: Часовая стрелка образует угол φ с лучом, проходящим через центр и через точку,соответствующую 12 часам на циферблате,0 < φ ≤ 2π . Определить значение угла для минутной стрелки, а также количество часов и полных минут. https://www.cyberforum.ru/ turbo-pascal/ thread183362.html
Turbo Pascal Найти первую цифру числа n Дано натуральное число n (n ≤ 100), найти первую цифру числа n. На паскале пожалуйста срочно надо!.	Turbo Pascal Решить биквадратное уравнение https://www.cyberforum.ru/ turbo-pascal/ thread183355.html Даны действительные числа a, b, c (a ≠ 0). Полностью исследовать биквадратное уравнение ax4 + bx2 + c = 0, т.е. если действительных корней нет, то должно быть выдано сообщение об этом, иначе должны быть выданы два или четыре корня. Решите срочно на паскале, очень нужно.

majesty1992

40 / 13 / 8

Регистрация: 15.12.2009

Сообщений: 70

29.10.2010, 15:34

Создайте программу для подсчёта числа нечётных чисел, используемых в записи введёного числа - Turbo Pascal - Ответ 1068123

29.10.2010, 15:34. Показов 1719. Ответов 1

Метки (Все метки)

Сообщение было отмечено FARAON166 как решение

Решение

Вот 1 задача:

Pascal

  function step(a,n:real):real;
begin
step:=Exp(Ln(a)*n);
end;
var a,n:real;
begin
writeln('Введите число');
readln(a);
writeln('Введите степень');
readln(n);
writeln(step(a,n):5:2);
readln;
end.

Добавлено через 5 минут
Вот 2-я задача:

Pascal

var m:string;
    i,k:integer;
begin
writeln('Введите число');
readln(m);
k:=0;
for i:=1 to length(m) do
if (ord(m[i]) mod 2)=1 then inc(k);
writeln(k);
readln;
end.

Вернуться к обсуждению:
Создайте программу для подсчёта числа нечётных чисел, используемых в записи введёного числа Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.10.2010, 15:34

Готовые ответы и решения:

Составьте программу подсчета числа четных цифр, используемых в записи н-значного числа M
Составьте программу подсчета числа четных цифр, используемых в записи N-значного числа M

Процедуры и функции. Напишите программу подсчета числа четных цифр, используемых в записи N-значного числа M
Напишите программу подсчета числа четных цифр, используемых в записи N-значного числа M.

Напишите программу для подсчёта числа букв "у" в слове Х, стоящих на нечётных местах
Напишите программу для подсчёта числа букв "у" в слове Х, стоящих на нечётных местах.

Подсчет числа четных цифр, используемых в записи N-значного числа M
Решить задачу с помощью процедур и функций. Написать программу подсчета числа четных цифр,...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.10.2010, 15:34

Помогаю со студенческими работами здесь

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
Составить программу, которая для любого натурального числа печатает количество цифр в записи этого...

Написать программу подсчета числа четных цифр , используемых в записи N-значного числа.помоги те решить с использованием фукций
Написать программу подсчета числа четных цифр , используемых в записи N-значного числа.помоги те...

Составить программу для подсчёта количества чётных и нечётных чисел
В массиве M(20) целых чисел подсчитать количество чётных и нечётных чисел.

Наверх