Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Организовать типизированный файл целых чисел состоящий из N компонент. Здравствуйте. Организовать типизированный файл целых чисел состоящий из N компонент. Удалить из файла все отрицательные компоненты. Вывести содержимое файла до обработки и после (один файл) Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread912474.html	Turbo Pascal Обработка числовый последовательностей Дана непустая последовательность неотрицательных чисел,оканчивающаяся отрицательным числом.Найти среднее арифметическое всех чисел последовательности (без учета отрицательного числа).
Turbo Pascal Вычислить площадь S фигуры по ее стороне A Вычислить площадь S фигуры по ее стороне А,если фигура представляет собой квадрат,пятиугольник или шестиугольник. Заранее спасибо!) https://www.cyberforum.ru/ turbo-pascal/ thread912452.html	Turbo Pascal Гамильтоновы циклы в графе https://www.cyberforum.ru/ turbo-pascal/ thread912443.html Гамильтонов цикл в графе G = (V, E) – это цикл в графе G, содержащий все вершины из V. Найти гамильтонов цикл в заданном неориентированном графе.
Нарисовать квадрат в квадрате Turbo Pascal Нарисовать квадраты друг в друге используя рекурсию. Помогите пожалуйста.	Turbo Pascal даны 3 числа https://www.cyberforum.ru/ turbo-pascal/ thread912381.html даны 3 числа. Найти разность между наибольшем и наименьшем среди них.
Turbo Pascal Среди чисел на отрезке Среди чисел на отрезке найдите количество и сумму чмсел, меньших по абсолютному значению квадрата порядкового номера. https://www.cyberforum.ru/ turbo-pascal/ thread912374.html	Ввести аргумент x, если аргумент попадает в область допустимых значений, вычислить значение выражения Turbo Pascal Ввести аргумент x с помощью клавиатуры и определить, попадает ли он в область допустимых значений. Вслучае попадания аргумента x в область допустимых значений вычислить значение выражения f (x) и вывести его на экран монитора, в случае не попадания аргумента x в область допустимых значений вывести об этом информационное сообщение. модуль(x^2/x-6) * sin(пx+1)
Turbo Pascal Строки: Необходимо вычислить сумму цифр, стоящих на нечётных позициях Дана строка символов, содержащая не более 255 цифр. Необходимо вычислить сумму цифр, стоящих на нечётных позициях. В программе должны присуствовать строковые параметры... мож знает как написать прогу? https://www.cyberforum.ru/ turbo-pascal/ thread912324.html	Turbo Pascal Оператор READ отказывается считывать символ(цикл) https://www.cyberforum.ru/ turbo-pascal/ thread912275.html PROGRAM TelNum(INPUT, OUTPUT); VAR Ch: CHAR; B: BOOLEAN; BEGIN ASSIGN(F, 'F.tel'); B := TRUE; WHILE B DO BEGIN
Turbo Pascal Графика в Турбо Паскаль Разработать графическую заставку к д/з используя анимацию. -на экране прорисовать список слов на русском языке(10 шт); - с верху в низ через эти слова "проходит образ" в котором написано язык перевода (английский); - русские слова заменять английскими. 1)прорисовать образ. 2)сохранить образ в динамической области памяти(спрайт). 3)Чистим экран. 4) Прорисовать фон(список слов). 5) Запустить образ...	Turbo Pascal Найти порядковый номер первой / последней буквы е в предложении https://www.cyberforum.ru/ turbo-pascal/ thread912111.html Дано предложение, в котором имеются несколько букв е. Найти: •порядковый номер первой из них; •порядковый номер последней из них.

MicM

840 / 498 / 325

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

Сообщений: 1,106

26.06.2013, 15:06

Определить, сколько раз в числе встречается цифра а - Turbo Pascal - Ответ 4774283

26.06.2013, 15:06. Показов 1482. Ответов 1

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

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

Решение

Pascal

var
  a,x,y,k,l:integer;
  n,m:longint;
begin
  write ('Введите число: ');
  readln(n);
  write ('A = ');
  readln(a);
  write ('X = ');
  readln(x);
  write ('Y = ');
  readln(y);
  m:=n;
  k:=0;
  l:=0;
  while m div 10 <> 0 do 
   begin
    m:=n;
    if n mod 10 = a then k:=k+1;
    if (n mod 10 = x) or (n mod 10 = y) then l:=l+1;
    n:=n div 10;
   end;
  writeln ('Число ',a,' встречается ',k,' раз');
  writeln ('Числа ',x,' и ',y,' встречаются ',l,' раз');
  readln;
end.

Вернуться к обсуждению:
Определить, сколько раз в числе встречается цифра а Turbo Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

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

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

26.06.2013, 15:06

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

Определить, сколько раз в числе встречается минимальная цифра
program A1; uses crt; var a,c,z,p,min,n,x,y:integer; begin clrscr; writeln('Vvedite naturalnoe...

Определить, сколько раз первая цифра встречается в заданном числе
Дано натуральное число: • сколько раз первая цифра встречается в данном числе; • верно ли, что...

Определить, сколько раз цифра встречается в данном целом числе
решить задачу: сколько раз данная цифра встречается в данном целом числе? цифра (a) и число(b)...

Определить, сколько раз последняя цифра встречается в целом числе
Сколько раз последняя цифра встречается в целом числе.(использовать процедуру).

	26.06.2013, 15:06

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

26.06.2013, 15:06

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

Определить, сколько раз первая цифра встречается в заданном числе
1)Дано натуральное число сколько раз первая цифра встречается в данном числе; 2)Дано натуральное...

Определить, сколько раз данная цифра a встречается в данном числе
помогите пожалуйста решить задачу дано натуральное число: -сколько раз данная цифра a встречается...

Определить, сколько раз в числе встречается его максимальная цифра
2. Использование цикла с предусловием Дано натуральное число. Определить, сколько раз в нем...

Определить сколько раз встречается цифра или цифры в задающем нами числе N
Определить сколько раз встречается цифра или цифры в задающем нами числе N

Наверх