Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 09.01.2008, 12:59   #1
Ases_51
Новичок
Джуниор
 
Регистрация: 09.01.2008
Сообщений: 1
По умолчанию двузначные числа которые при умножении на 3 будут заканчиваться на цифру 4

Найти двузначные числа которые при умножении на 3 будут заканчиваться на цифру 4
Ases_51 вне форума
Старый 09.01.2008, 13:25   #2
AlDelta
Реанимируюсь...
Участник клуба
 
Аватар для AlDelta
 
Регистрация: 19.07.2007
Сообщений: 1,445
По умолчанию

Код:
uses crt;
var i:integer;
Begin
clrscr;
for i:=10 to 99 do
if (i*3) mod 10 = 4 then writeln(i,' ',i,'*3=',i*3);
End.
Читай правила форума.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе...
P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows"

Последний раз редактировалось AlDelta; 09.01.2008 в 13:29.
AlDelta вне форума
Старый 12.01.2008, 23:24   #3
Rabbit
Пользователь
 
Аватар для Rabbit
 
Регистрация: 12.01.2008
Сообщений: 12
По умолчанию

Цитата:
Сообщение от AlDelta Посмотреть сообщение
Код:
uses crt;
var i:integer;
Begin
clrscr;
for i:=10 to 99 do
if (i*3) mod 10 = 4 then writeln(i,' ',i,'*3=',i*3);
End.
1) 8*3=24
2) Когда i>33 числа становятся 3-х значными
Вывод:
I:=8 to 33
Rabbit вне форума
Старый 13.01.2008, 09:12   #4
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Сам то понял, что написал? Прежде чем влазить в тему, прочитай внимательно условие задачи, изучи ответы предыдущих авторов, если приведены коды, прогони их у себя на компьютере. И вот если после всего этого увидишь ошибку, напиши об этом.
puporev вне форума
Старый 13.01.2008, 11:37   #5
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Верный ответ дал AlDelta, тема закрыта.
Alex21 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Найти первую цифру в данных ячейки.. kra183 Microsoft Office Excel 11 09.05.2008 01:35
Даны три числа. Выберите те из них, которые принадлежат заданному отрезку [а, b]. Sheff903 Помощь студентам 1 27.11.2007 21:28
Найти числа,которые читаются слева-направо и справа-налево одинаково(например, 1001). Паскаль NikLik Помощь студентам 8 22.11.2007 23:00
Нужно разбить те числа которые в одной ячейке по разным ячейчам в столбец Alexander_Gr Microsoft Office Excel 8 20.11.2007 08:02
телеф книжка где будут сохранены адреса и телефонные номера oblom Общие вопросы C/C++ 10 18.10.2007 02:11