Задача 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. Решите следующую задачу : Дано двузначное число. Определить :а) сумму и произведение цифр числа;число,образованное перестановкой цифр числа.

30 Авг 2019 в 05:42
328 +1
0
Ответы
1

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

20 Апр 2024 в 12:35
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир