2. Составить программу для нахождения цифр четырехзначного ...
2. Составить программу для нахождения цифр четырехзначного числа. Ниже представлен пример диалога. Данные, вводимые пользователем, выделены жирным шрифтом. Введите четырехзначное число 3281 Число тысяч равно 3 Число сотен равно 2 Число десятков равно 8 Число единиц равно 1
Есть ответ
17.12.2022
400
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
