0 / 0 / 0
Регистрация: 19.10.2014
Сообщений: 30
1

Найти все целые числа из промежутка 1 до 100 в десятичной записи которых есть цифры 7

24.11.2014, 20:50. Показов 5527. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Поясните пожалуйста код, добавьте комментарии.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program rb_3;
var a,b,c:integer
begin
   for a:10 to 100do
     begin
         c:=a;
         While c>1 do
            begin
               if (c mod 10)=7 then
                 begin
                    Writeln('---');
                    Writeln(a);
                 end;
              c:=c div 10;
            end;
      end;
   readln;
   readln;
end.
Добавлено через 56 минут
Вот это если точно, пожалуйста
Pascal
1
2
3
4
5
6
7
8
9
c:=a;
         While c>1 do
            begin
               if (c mod 10)=7 then
                 begin
                    Writeln('---');
                    Writeln(a);
                 end;
              c:=c div 10;
0
24.11.2014, 20:50
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
24.11.2014, 20:50
Ответы с готовыми решениями:

Найти все целые числа из промежутка от 50 до 150 в десятичной записи, которых есть цифра 9
Найти все целые числа из промежутка от 50 до 150 в десятичной записи которых есть цифра 9,но нужно сделать с помощью циклов!

Найти все целые числа из промежутка от 10 до 200, в десятичной записи которых есть цифры “2” и “5”
Найти все целые числа из промежутка от 10 до 200, в десятичной записи которых есть цифры “2” и “5”.

Найти все целые числа из промежутка от 1 до 1000 в десятичной записи которых есть цифра 7
Верна ли программа? Напишите коментарии к каждой строке этой программы, что каждая строка выполняет. И составить блок-схему. ...

4
Почетный модератор
 Аватар для Puporev
64305 / 47602 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
24.11.2014, 20:54 2
Цитата Сообщение от KobaValic Посмотреть сообщение
Поясните пожалуйста код
Это не код а ....сам слово подбери.
1
 Аватар для Cortex1998
18 / 18 / 11
Регистрация: 05.01.2014
Сообщений: 119
Записей в блоге: 2
24.11.2014, 21:02 3
Цитата Сообщение от Puporev Посмотреть сообщение
Это не код а ....сам слово подбери
Да-да,именно то слово...
Перепишите хотя бы!
0
1 / 0 / 0
Регистрация: 24.11.2014
Сообщений: 5
24.11.2014, 21:04 4
боюсь ошибитса но помоем програма работает некоректно

я бы написал так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
Program rb_3;
var a:integer
begin
   for a:1 to 100 do 
        if a div 10=7 then do begin
Writeln('---');
         Writeln(a);
                                     end;
             
   readln;
  
end.
0
0 / 0 / 0
Регистрация: 19.10.2014
Сообщений: 30
24.11.2014, 21:04  [ТС] 5
Зачем? Его учитель так подкорректировал, я и попросил пояснить.
0
24.11.2014, 21:04
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
24.11.2014, 21:04
Помогаю со студенческими работами здесь

Найти все целые числа из промежутка [a;b], в записи которых есть цифра N
Найти все целые числа из промежутка , в записи которых есть цифра N. Ответ записать в файл c именем FileName, располагая по одному числу в...

Найти все натуральные числа из промежутка от 9 до 999, в записи которых есть цифры A и B
Найти все натуральные числа из промежутка от 9 до 999, в записи которых есть цифры A и B (A и B вводить с клавиатуры).

Найти все целые числа из промежутка от 1 до 100, у которых есть цифра "7"
Найти все целые числа из промежутка от 1 до 100, у которых есть цифра "7". Как-бы не старался не могу додумать как найти эти...

Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K
помогите с задачей :'( Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна K(K вводится с клавиатуры). ...

Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна 50
Помогите пожалуйста. Найти все целые числа из промежутка от 100 до 300, у которых сумма делителей равна 50.


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

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

Редактор формул (кликните на картинку в правом углу, чтобы закрыть)
Опции темы

Новые блоги и статьи
Использование кэша Laravel - полный гайд
bytestream 18.02.2025
Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .
Создаем REST API в Laravel с аутентификацией и Passport
bytestream 18.02.2025
Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .
Пайплайны в Laravel - полный гайд
bytestream 18.02.2025
Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .
Как правильно использовать @required в Symfony
bytestream 18.02.2025
При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru