Question

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

Answer 1

Высылаю вам 2 картинки, надеюсь разберетесь =)