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

Question

Информатика

Альбиныч

31 марта, 09:03

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

+1

Ответы (1)

Знаете ответ?

Николя · Answer 1

Program pr;

uses crt;

Var a, x1, x2, x3, x4:integer;

Begin

Writeln ('введите 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.