Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
Жанна1
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 29
#1

Проверить признак деления на 3 на примере заданного трехзначного числа - Delphi

05.06.2015, 13:30. Просмотров 645. Ответов 2
Метки нет (Все метки)

Деление на 3. Как известно, число делится на 3 тогда и только тогда, когда сумма его цифр делится на 3. Проверить этот признак на примере заданного трехзначного числа.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.06.2015, 13:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Проверить признак деления на 3 на примере заданного трехзначного числа (Delphi):

Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. - Delphi
Вывести на экран 1 или 0 в зависимости от того, равен ли квадрат заданного трехзначного числа кубу суммы цифр этого числа. Помогите...

Найти сумму цифр заданного трехзначного числа - Delphi
найти сумму цифр заданного трехзначного числа

Найти сумму цифр заданного трехзначного числа - Delphi
procedure TForm1.Button1Click(Sender: TObject); var num,sum:integer;p:integer; begin val(edit1.Text,num,p); if (p=0) and (p<=0)...

Проверить, равна ли сумма цифр трехзначного числа девяти - Delphi
Учусь в университете, 2 курс, началось знакомство и работа с языками программирования. Я, к сожалению, не сталкивался с языками, не умею с...

Определить, есть ли среди цифр заданного трехзначного числа одинаковые - Delphi
Привет! Помогите составить код прогргаммы для следующей задачи и объяснение этого кода пожалуйстааа..... "ОПРЕДЕЛИТЬ, ЕСТЬ ЛИ СРЕДИ ЦИФР...

Определить, есть ли среди цифр заданного трехзначного числа одинаковые - Delphi
Помогите составить код для программы, чтобы она могла определить, есть ли среди цифр заданного трехзначного числа одинаковые.

2
Immo
180 / 180 / 52
Регистрация: 02.10.2012
Сообщений: 807
05.06.2015, 13:45 #2
Delphi
1
2
3
4
5
6
7
var
Ftemp:string;
x:integer;
begin
Ftemp:=inttostr(X);
sum:=strtoint(Ftemp[1])+strtoint(Ftemp[2])+strtoint(Ftemp[3]);
if (sum mod 3)=0 then ...делится... else ...не делится...
1
Жанна1
0 / 0 / 0
Регистрация: 04.06.2015
Сообщений: 29
05.06.2015, 13:54  [ТС] #3
Спасибо
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.06.2015, 13:54
Привет! Вот еще темы с ответами:

Целой переменной x присвойте значение суммы цифр заданного трехзначного числа - Delphi
Целой переменной x присвойте значение суммы цифр заданного трехзначного числа.

Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа - Delphi
Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа

Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа - Delphi
Помогите начинающему программисту :):wall: Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа

Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. - Delphi
Определить число, полученное выписыванием в обратном порядке цифр заданного трехзначного числа. Помогите решить и объяснить , прост я...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru