Задача 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′Введитечисло:′'Введите число:'′Введитечисло:′; readlnaaa; z1 := a mod 10; writeln′Цифраединицчисла−′,z1'Цифра единиц числа - ', z1′Цифраединицчисла−′,z1; z2 := adiv10a div 10adiv10 mod 10; writeln′Цифрадесятковчисла−′,z2'Цифра десятков числа - ', z2′Цифрадесятковчисла−′,z2; z3 := adiv100a div 100adiv100 mod 10; writeln′Цифрасотенчисла−′,z3'Цифра сотен числа - ', z3′Цифрасотенчисла−′,z3; z4 := a div 1000; writeln′Цифратысяччисла−′,z4'Цифра тысяч числа - ', z4′Цифратысяччисла−′,z4; sum := z1 + z2 + z3 + z4; writeln′Суммацифрчисла−′,sum'Сумма цифр числа - ', sum′Суммацифрчисла−′,sum; mult := z1 z2 z3 z4; writeln′Произведениецифрчисла−′,mult'Произведение цифр числа - ', mult′Произведениецифрчисла−′,mult; rez := z41000 + z3100 + z210 + z1; writeln′Число,образованноеперестановкойцифрчисла−′,rez'Число, образованное перестановкой цифр числа - ', rez′Число,образованноеперестановкойцифрчисла−′,rez; end.
// Пример // Введите число: // 1234 // Цифра единиц числа - 4 // Цифра десятков числа - 3 // Цифра сотен числа - 2 // Цифра тысяч числа - 1 // Сумма цифр числа - 10 // Произведение цифр числа - 24 // Число, образованное перестановкой цифр числа - 4321
program examp2_3;
var a, z1, z2, z3, z4, rez, sum, mult : integer;
begin
writeln′Введитечисло:′'Введите число:'′Введитечисло:′;
readlnaaa;
z1 := a mod 10;
writeln′Цифраединицчисла−′,z1'Цифра единиц числа - ', z1′Цифраединицчисла−′,z1;
z2 := adiv10a div 10adiv10 mod 10;
writeln′Цифрадесятковчисла−′,z2'Цифра десятков числа - ', z2′Цифрадесятковчисла−′,z2;
z3 := adiv100a div 100adiv100 mod 10;
writeln′Цифрасотенчисла−′,z3'Цифра сотен числа - ', z3′Цифрасотенчисла−′,z3;
z4 := a div 1000;
writeln′Цифратысяччисла−′,z4'Цифра тысяч числа - ', z4′Цифратысяччисла−′,z4;
sum := z1 + z2 + z3 + z4;
writeln′Суммацифрчисла−′,sum'Сумма цифр числа - ', sum′Суммацифрчисла−′,sum;
mult := z1 z2 z3 z4;
writeln′Произведениецифрчисла−′,mult'Произведение цифр числа - ', mult′Произведениецифрчисла−′,mult;
rez := z41000 + z3100 + z210 + z1;
writeln′Число,образованноеперестановкойцифрчисла−′,rez'Число, образованное перестановкой цифр числа - ', rez′Число,образованноеперестановкойцифрчисла−′,rez;
end.
// Пример
// Введите число:
// 1234
// Цифра единиц числа - 4
// Цифра десятков числа - 3
// Цифра сотен числа - 2
// Цифра тысяч числа - 1
// Сумма цифр числа - 10
// Произведение цифр числа - 24
// Число, образованное перестановкой цифр числа - 4321