Задать вопрос Регистрация
Помочь другим

  • 2. Составить программу для нахождения цифр четырехзначного числа. Ниже представлен пример диалога. Данные, вводимые пользователем, выделены жирным шрифтом. Введите четырехзначное число 3281 Число тысяч равно 3 Число сотен равно 2 Число десятков равно 8 Число единиц равно 1

Ответы 1

  • Program pr;uses crt;Var a, x1, x2, x3, x4:integer;BeginWriteln('введите 4-х значное число');readln(a);x1:=a div 1000;x2:=(a mod 1000) div 100;x3:=(a mod 100) div 10;x4:=a mod 10;Writeln(x1);Writeln(x2);Writeln(x3);Writeln(x4);readln;end.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years