Задача 2 : Написать программу определения цифр трехзначного числа. program examp2_1; var a, z1,z2,z3, rez : integer; begin writeln('Введите число’); readln(a); z1:=a Mod 10; writeln('Цифра единиц числа - ’z1); z2:=(a Div 10) Mod 10; writeln('Цифра десятков числа - ’z2); z3:=a Div 100; writeln('Цифра сотен числа - ’z3); rez:=z3*100+z2*10+z1; writeln('Это тоже число - ’rez);end. 5. Измените программу exampl2_2 для нахождения цифр четырехзначного числа. Сохраните ее под именем exampl2_3. Решите следующую задачу : Дано двузначное число. Определить :а) сумму и произведение цифр числа;число,образованное перестановкой цифр числа.

Предыдущий
вопрос Следующий
вопрос

program examp2_3;
var a, z1, z2, z3, z4, rez, sum, mult : integer;
begin
writeln('Введите число:');
readln(a);
z1 := a mod 10;
writeln('Цифра единиц числа - ', z1);
z2 := (a div 10) mod 10;
writeln('Цифра десятков числа - ', z2);
z3 := (a div 100) mod 10;
writeln('Цифра сотен числа - ', z3);
z4 := a div 1000;
writeln('Цифра тысяч числа - ', z4);
sum := z1 + z2 + z3 + z4;
writeln('Сумма цифр числа - ', sum);
mult := z1 z2 z3 z4;
writeln('Произведение цифр числа - ', mult);
rez := z41000 + z3100 + z210 + z1;
writeln('Число, образованное перестановкой цифр числа - ', rez);
end.

// Пример
// Введите число:
// 1234
// Цифра единиц числа - 4
// Цифра десятков числа - 3
// Цифра сотен числа - 2
// Цифра тысяч числа - 1
// Сумма цифр числа - 10
// Произведение цифр числа - 24
// Число, образованное перестановкой цифр числа - 4321