математические действия с числом

[pionerka]

Здравствуйте,ребята.Очень нужна ваша помощь в решении задачи.
Дано число,определить:
1.равна ли сумма 2-х первых его цифр сумме 2-х его последних.
2.кратна ли 3-м сумма его цифр.
3.кратна ли 4-м произведениее его цифр.
Пожалуйста,помогите с решением или напишите с чего надо начать.Задачу можно решить на Бейсике либо на Паскале.Заранее спасибо.

[p51x]

div, mod вам в руки

[pionerka]

это я знаю.а можно по подробнее?

[p51x]

В чем конкретно проблемы?

[pionerka]

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

[Stilet]

Например ты число превращаешь в строку (процедура Str).
Далее каждый элемент строки (а это по сути цифры) превращаешь в число (процедура Val)
Посмотри их описание в хелпе паскаля там и пример же найдешь.

[Namolem]

a = 345; // 345
a mod 10; // 5
a := a div 10; // 34

выполняется в цикле, пока А не станет равным нулю

[Sanprof]

Сообщение от Stilet

Например ты число превращаешь в строку (процедура Str).
Далее каждый элемент строки (а это по сути цифры) превращаешь в число (процедура Val)
Посмотри их описание в хелпе паскаля там и пример же найдешь.

Правильно человек подсказывает, допустим у тебя есть число 123456789

var Str : String;
      len : Integer;
      a : array of integer;

...

Str := inttostr(123456789);//преобразуем в строку
len := length(Str);//получаем длину (количество цифр)
setlength(a, len-1);//образмериваем массив
   for i := 0 to len-1 do
      a[i] := strtoint(copy(Str,i+1,1));//присваиваем і-му элементу массива 'а' каждую цифру

В итоге ты получаешь массив состоящий из цифр твоего числа, ну а дальше можешь проводить любые операции с каждым элементом массива, тоесть с каждой цифрой.

[Sanprof]

Да, еще добавлю если будут сложности с твоими 3-мя поставленными задачами, как бы я их решил

var Str : String;
      len : Integer;
      a   : array of integer;
      num1,num2 : integer;

...

Str := inttostr(123456789);//преобразуем в строку
len := length(Str);//получаем длину (количество цифр)
setlength(a, len-1);//образмериваем массив
   for i := 0 to len-1 do
      a[i] := strtoint(copy(Str,i+1,1));//присваиваем і-му элементу массива 'а' каждую цифру
// первая задача
num1 := a[0] + a[1];//суммая первого и второго числа
num2 := a[len-2] + a[len-1];//сумма предпоследнего и последнего
  if num1 = num2 then //если равны
    showmessage('Сумма первых двух чисел равна сумме двух последних') else
    showmessage('Сумма первых двух чисел не равна сумме двух последних');
//вторая задача
num1 := 0;
num2 := 0;
for i := 0 to len-1 do
   num1 := num1 + a[i];//получаем сумму всех чисел
num2 := num1 div 3;
num2 := num2*3;//здесь получим либо не получим обратно число в num1 
  if num1 = num2 then //если равны
    showmessage('Сумма цифр числа '+Str+' кратна 3-м') else
    showmessage('Сумма цифр числа '+Str+' не кратна 3-м');
//третья задача
num1 := 0;
num2 := 0;
for i := 0 to len-1 do
   num1 := num1*a[i];//получаем произведение всех чисел
num2 := num1 div 4;
num2 := num2*4;
if num1 = num2 then //если равны
    showmessage('Произведение цифр числа '+Str+' кратна 4-м') else
    showmessage('Произведение цифр числа '+Str+' не кратна 4-м');

Это пример, а дальше можешь его преобразовать по своим нуждам.