Задача в паскале ABC

[Fructis]

Помогите пожалуйста. Нужно сделать эти задания в паскале, а я никак не разберусь. Первый год изучаю.
1. Дано трёхзначное число. Определить:
a) сумму и произведение цифр числа;
b) число, образованное перестановкой цифр исходного числа;
c) число, полученное перестановкой цифр сотен и десятков;
d) число, полученное перестановкой цифр десятков и единиц.
2. Дано четырёхзначное число. Получите двузначное число, удалив из исходного четырёхзначного числа цифры:
a) тысяч и десятков (например: 2783 → 73);
b) сотен и единиц (например: 2783 → 28);
c) десятков и единиц (например: 2783 → 27);
d) получите другие двухзначные числа удалением цифр из исходного четырёхзначного числа.

Хотя бы по одному из двух номеров, чтобы я принцип поняла.
Спасибо!!!

[GreenWizard]

принцип прост:
A div 10 = число десятков в числе А (1125 div 10 = 112)
(A div 10) mod 10 = десятичная часть числа A ( (1125 div 10) mod 10 = 2)
по такому принципу вы получите число единиц/десятков/сотен/тысяч и сами решите задачи за пару минут
например, 2.а будет работать где-то так:
1) в переменные _1, _10, _100 и _1000 сохраняем соответствующие разряды
2) ответ = (_100 * 10) + _1 (умножение нужно т.к. сотни станут десятками)

остальное просто вариации на тему
а 2.d чуть сложнее, я бы решал хитропопым перебором, но вы студент и можно тупо все варианты тупо запрограммировать

[Fructis]

Вот что получилось. Но что-то мне подсказывает, что нифига не правильно.

program zadacha_1a;
var a,x,y,z,b,c:integer;
Begin
readln(a);
x:=a div 100;
y:=(a div 10) mod 10;
z:=a mod 10;
b:=x+y+z;
writeln(b);
c:=x*y*z;
writeln(c)
End.

[Hacker19_90]

Ну вот вам пример! Раз уж вы начинающий программер!
Начинающим надо помогать!

1. Дано трёхзначное число. Определить:
a) сумму и произведение цифр числа;

ReadLn (num);
_MUL := 1;
_SUM := 0;
while num <> 0 do
begin
    _MUL := _MUL*(num mod 10);
    _SUM := _SUM + (num mod 10);
    num := num div 10;
end;
WriteLn ('произведение = ', _MUL, ' СУММА = ', _SUM);

Работает для чисел любой разрядности!

[GreenWizard]

нам нужно число каждого разряда т.е. так:

program zadacha_2a;
var a,x,y,z,b,c:integer;
Begin
readln(a);
// единицы
x:= a mod 10; // (a div 1) mod 10;
// десятки
y:=(a div 10) mod 10;
// сотни
z:=(a mod 100) mod 10;
b:=x+y+z;
writeln(b);
c:=x*y*z;
writeln(c)
End.

Hacker19_90 приводит более общий подход, но вы хоть освойте наивный подход нет нужды вводить массивы, а для применения подхода Hacker19_90 он будет нужен (разбиваем число на массив чисел и уже по индексам обращаемся к сотням/десяткам/др)

[Hacker19_90]

нам нужно число каждого разряда т.е. так:

А чем вам код ТС не угодил?
Всё вполне рабочее!
ой ёй ёй! Стоп СТОП

z:=(a mod 100) mod 10;

Какие сотни? Вы что? Те же единицы!
Не верите? смотрим

число 123
123 Mod 100 = 23
23 mod 10 = 3

[Fructis]

Да, да, я смотрю вот эти массивы мы совсем не изучали.
В любом случае спасибо за помощь!)

[GreenWizard]

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

А чем вам код ТС не угодил?
Всё вполне рабочее!
....

спокойнее) я отвечал на пост автора темы, а Ваш код верный полностью, НО пусть автор хоть наивный подход освоит) а то мы тут нагородим и массивы, и деревья, и ООП ещё, не дай Бог, пристроим)))

[Hacker19_90]

я смотрю вот эти массивы мы совсем не изучали.

пффф! Ребят! О каких массивах идёт речь?

спокойнее) я отвечал на пост автора темы,

Так! Вы меня не поняли!
1) я Абсолютно спокоен!
2) Я и имел ввиду код Автора темы
ТС = ТОПИК СТАРТЕР, тот же автор темы! Но не как не свой! Если вы об этом!

а то мы тут нагородим и массивы, и деревья, и ООП ещё, не дай Бог, пристроим)))

Вы щас о чём простите?

[GreenWizard]

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

пффф! Ребят! О каких массивах идёт речь?

окей, тогда задачу 2.а реши без массивов и отличным от предложенного мною кода ещё и так же просто) а по факту, вопрос решён и автор доволен