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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.12.2013, 11:04   #1
25-й кадр
Человек
Форумчанин
 
Регистрация: 04.04.2011
Сообщений: 178
Вопрос задания по практике

Дано натуральное число:
(а) сколько раз первая цифра встречается в данном числе;
(b) верно ли, что данное число начинается на A, а заканчивается на B (цифры A и B вводятся с клавиатуры)


Помогите кто чем может, заранее благодарен. Если не сложно, то с объяснением напишите.
Это вам не это

Последний раз редактировалось 25-й кадр; 06.12.2013 в 14:22.
25-й кадр вне форума Ответить с цитированием
Старый 06.12.2013, 11:25   #2
Smitt&Wesson
Старожил
 
Аватар для Smitt&Wesson
 
Регистрация: 31.05.2010
Сообщений: 13,543
По умолчанию

Цитата:
Сообщение от 25-й кадр Посмотреть сообщение
Найдите все трёхзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
Вы арифметику для пятого класа хорошо читали? Или это только мне преподавали (индивидуально)?
Пиши пьяным, редактируй трезвым.
Справочник по алгоритмам С++ Builder
Smitt&Wesson вне форума Ответить с цитированием
Старый 06.12.2013, 12:22   #3
25-й кадр
Человек
Форумчанин
 
Регистрация: 04.04.2011
Сообщений: 178
По умолчанию

С арифметикой всё в порядке, это понятно, просто описать это в Delphi... Не доходит немного.
Это вам не это
25-й кадр вне форума Ответить с цитированием
Старый 06.12.2013, 16:54   #4
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

1.
Код:
Var
 Kol,J, I:integer;
  First,S:string;
...
Readln(i);
S:=inttostr(i);
First:=s[1];
Kol:=0;
For j:=2 to length(s) do
  If s[j]=first then
    Kol:=kol+1;
...
ZX Spectrum-128 вне форума Ответить с цитированием
Старый 06.12.2013, 17:04   #5
ZX Spectrum-128
Участник клуба
 
Регистрация: 05.11.2013
Сообщений: 1,601
По умолчанию

2.
Код:
Last:=n mod 10;
S:=inttostr(n);
First:=strtoint(s[1]);
If (first=a) and (last=b) then
Writeln('аха!');
ZX Spectrum-128 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ответ по практике StudentMarat Свободное общение 1 14.09.2010 23:57
Задание по практике IPI Помощь студентам 4 15.06.2010 12:31
Отчот по практике sby Фриланс 3 12.05.2009 17:16
Программа по практике Antowka БД в Delphi 0 15.10.2007 10:40
Зачет по практике!!!!!! KORT Свободное общение 39 21.07.2007 00:28