Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Подсчитать количество отрицательных элементов массива, которые стоят на четных местах Помогите решить задачу, заранее благодарен) Дан одномерный массив C, элементы которого формируются по формуле C = 5*sin2i +4*cos6i, где i - номер элемента в массиве С. Подсчитать количество отрицательных элементов массива, которые стоят на четных местах в массиве С. На экран вывести сам массив и количество элементов. https://www.cyberforum.ru/ pascalabc/ thread394932.html Ввести 8 чисел. Определить количество значений, превосходящих число 100. Pascal ABC
1. Ввести 8 чисел. Определить количество значений, превосходящих число 100. 2. Вычислить 10/3+9/3+8/3+…+1/3 заранее благодарен.
Pascal ABC Определить время через 10 секунд 1. Дано время (часы, минуты, секунды)-три натуральных числа. Определить время через 10 секунд. 2. Добавьте в предыдущую программу защиту от ввода некорректных данных, т.е. при вводе данных организуйте цикл до тех пор, пока не будут выполнены ограничения, накладываемые на значения аргументов. https://www.cyberforum.ru/ pascalabc/ thread394918.html Pascal ABC подскажите где ошибка метод сим левых правых и трап https://www.cyberforum.ru/ pascalabc/ thread394917.html
Program m; var fl,fp,ft,fs,a,b,h,pr,c,fss,ks,d:real; n,i:integer; begin writeln('введите кол во участ '); readln(n); writeln('начальное значение x'); readln(a); writeln('конечное x'); readln(b);
Определить количество строк в файле, которые начинаются и заканчиваются одним и тем же символом Pascal ABC
№1 Определить количество строк в файле, которые начинаются и заканчиваются одним и тем же символом. №2 Все строки файла переписать в новый файл, оставив при этом в строчках по 5 символов.
Pascal ABC Подсчитать количество отрицательных элементов массива, которые стоят на четных местах в массиве https://www.cyberforum.ru/ pascalabc/ thread394905.html
Помогите решить задачу, заранее благодарен) Дан одномерный массив C, элементы которого формируются по формуле C = 5*sin2i +4*cos6i, где i - номер элемента в массиве С. Подсчитать количество отрицательных элементов массива, которые стоят на четных местах в массиве С. На экран вывести сам массив и количество элементов.
Pascal ABC Удалить последнее слово строки https://www.cyberforum.ru/ pascalabc/ thread394903.html
№1 Ввести строку. Удалить последнее слово. №2 Ввести строку. Найти длину самого длинного слова. №3 Ввести строку. Заменить в ней заглавные буквы на строчные.
Методы сортировки массива Pascal ABC
Какие существуют методы сортировки одномерных массивов (кроме вставок, простого выбора и пузырька)? и желательно со ссылками на их описание и программный код примеров. Заранее благодарю.
Pascal ABC Выбрать из трех чисел то, которое лежит между двумя другими составить программу выбирающую из трех чисел то которое лежит между двумя другими https://www.cyberforum.ru/ pascalabc/ thread394860.html Pascal ABC Отсортировать одномерный массив по возрастанию https://www.cyberforum.ru/ pascalabc/ thread394857.html
№1 Отсортировать одномерный массив по возрастанию, используя процедуру перестановки местами значений двух величин.
Pascal ABC помогите с графикой
напишите пожалуйста кто-нибудь любую программу по графике только чтобы там двигалось что-нибудь
Pascal ABC Помогите с графикой АБС(восьмиугольник) Помогите плиз сеня уже нужно на мыло отправить Отталкиваясь от этого(снимок с экрана) Сделать(восьмиугольник)цвет восьмиугольника черный https://www.cyberforum.ru/ pascalabc/ thread394850.html
trainspotting
1086 / 486 / 384
Регистрация: 11.11.2010
Сообщений: 773
29.11.2011, 19:39 0

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

29.11.2011, 19:39. Показов 4857. Ответов 3
Метки (Все метки)

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

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  p,k:longint;
  c:byte;
begin
  write('Chislo:');
  readln(p);
  k:=abs(p);
  c:=0;
  while k>0 do
    begin
      if k mod 10=5 then
        inc(c);
      k:=k div 10;
    end;
  if c=0 then
    writeln('V chisle ',p,' net tsifry 5')
  else
    writeln(c);
end.


Вернуться к обсуждению:
Определить, сколько раз в числе встречается цифра 5 Pascal ABC
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2011, 19:39
Готовые ответы и решения:

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

Определить, сколько раз в числе встречается вторая цифра
Помогите пожалуйста! работать в PascalABC 1)Определить сколько раз в числе встречается вторая...

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

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

3
29.11.2011, 19:39
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2011, 19:39
Помогаю со студенческими работами здесь

Определить, сколько раз цифра 5 встречается в целом числе
Помогите пожалуйста решить. Сколько раз цифра 5 встречается в целом числе (использовать функцию)

Определить, сколько раз в четырехзначном числе встречается максимальная цифра
Кольцо раз в данном четырех значном числе встречается максимальная цифра? Добавлено через 4...

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

Определить сколько раз в числе встречается цифра, равная старшей
Помогите написать 2 программы на Паскале (желательно с коментариями) 1) Дано натуральное число....

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

Определить, есть ли в данном длинном числе цифра 0, и сколько раз она встречается
Дано длинное целое число, содержащее не более 100 цифр. Рассматривать цифры числа, как массив...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru