Количество цифр в числе.

@FreedomCat · Регистрация: 06.06.2019

Студворк — интернет-сервис помощи студентам

Cоставить программу, которая выводит да, если в тесте количество цифр от 1 до 5 больше чем количество от 6 до 9 иначе вывести нет.

@Puporev · 02.10.2020, 18:29

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var n:integer;
    k1,k2:integer;
begin
write('Введите целе число n=');
readln(n);
n:=abs(n);
k1:=0;
k2:=0;
repeat
if n mod 10 in [1..5] then inc(k1)
else if n mod 10 in [6..9] then inc(k2);
n:=n div 10;
until n=0;
if k1>k2 then write('Да')
else write('Нет')
end.

@Cyborg Drone · 08.10.2020, 01:01

Вариант программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
  n, k: integer;
begin
  write('Введите целе число n=');
  readln(n);
  n := abs(n);
  k := 0;
  repeat
    if n mod 10 in [1..5] then inc(k)
    else if n mod 10 in [6..9] then dec(k);
    n := n div 10
  until n = 0;
  if k > 0 then write('Да')
  else write('Нет')
end.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@FreedomCat 0 / 0 / 0 Регистрация: 06.06.2019 Сообщений: 5

	Количество цифр в числе. 02.10.2020, 16:58. Показов 2259. Ответов 2 Метки pascal, pascal abc net (Все метки) Cоставить программу, которая выводит да, если в тесте количество цифр от 1 до 5 больше чем количество от 6 до 9 иначе вывести нет. 0

Количество цифр в числе.

Решение