Задача 2 : Написать программу определения цифр трехзначного числа. program examp2_1;

Задача 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('Цифра 10-ов числа - z2); z3:=a Div 100; writeln('Цифра сотен числа - z3); rez:=z3*100+z2*10+z1; writeln('Это тоже число - rez);end. 5. Измените программку exampl2_2 для нахождения цифр четырехзначного числа. Сохраните ее под именем exampl2_3. Решите последующую задачку : Дано двузначное число. Определить :а) сумму и творенье цифр числа;число,интеллигентное перестановкой цифр числа.

Задать свой вопрос
1 ответ

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт