Работа по Delphi - Общие вопросы Delphi

ibragims · 10.11.2010, 14:22

Вводятся числа a и b. Найти количество чисел в диапазоне [a;b], у которых последняя цифра равна 7.

MaxNik2009 · 10.11.2010, 14:25

Код:

Работа по Delphi

а где цена?(любая работа должна быть оплачена).
Если хотите помощь получить, то выкладывайте свои наработки... На халяву не прокатит

kangreon · 10.11.2010, 14:40

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,i,t: integer;
begin
  t := 0;
  a := 17;
  b := 46;
  for i := a to b do
    if i mod 10 = 7 then
    Inc(t);

  Caption := IntToStr(t);
end;

mihali4 · 10.11.2010, 14:53

Для "особо одаренных" и не желающих соблюдать наши правила.
Читаем правила этого раздела и думаем...
Причем не так, по диагонали, а вдумчиво читаем!
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Подсказка - для вас персонально особо важен пункт 7.
Приказы вроде "решить", "найти", "срочно" и т.п. принимаются в разделе для студентов.
Как вы понимаете - тема будет удалена.
Модератор

10.11.2010, 14:22	#1
ibragims Новичок Джуниор Регистрация: 10.11.2010 Сообщений: 1	Работа по Delphi Вводятся числа a и b. Найти количество чисел в диапазоне [a;b], у которых последняя цифра равна 7.

10.11.2010, 14:25	#2
MaxNik2009 Форумчанин Регистрация: 17.09.2009 Сообщений: 294	Код: `Работа по Delphi` а где цена?(любая работа должна быть оплачена). Если хотите помощь получить, то выкладывайте свои наработки... На халяву не прокатит принимаю благодарности в письменном виде( весы слева)...

10.11.2010, 14:40	#3
kangreon Форумчанин Регистрация: 03.04.2009 Сообщений: 305	Код: `procedure TForm1.Button1Click(Sender: TObject); var a,b,i,t: integer; begin t := 0; a := 17; b := 46; for i := a to b do if i mod 10 = 7 then Inc(t); Caption := IntToStr(t); end;` Последний раз редактировалось kangreon; 10.11.2010 в 14:51.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Delphi работа с числами	Яська	Помощь студентам	2	16.10.2010 18:30
работа на delphi	Ericnex	Помощь студентам	1	19.05.2010 21:24
Delphi. Работа с БД.	Xeon332	Фриланс	12	22.03.2010 22:22
Delphi работа с файлами	tanek	Помощь студентам	14	06.03.2010 20:59
Delphi,Работа с массивами	iSpoke	Помощь студентам	5	18.10.2009 23:41

10.11.2010, 14:53	#4
mihali4 * Старожил Регистрация: 22.11.2006 Сообщений: 9,201	Для "особо одаренных" и не желающих соблюдать наши правила. Читаем правила этого раздела и думаем... Причем не так, по диагонали, а вдумчиво читаем! Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе... Подсказка - для вас персонально особо важен пункт 7. Приказы вроде "решить", "найти", "срочно" и т.п. принимаются в разделе для студентов. Как вы понимаете - тема будет удалена. Модератор