2. Составить программу для нахождения цифр четырехзначного числа. Ниже…

Question

44

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

категория: информатика

ответить

в избранное ссылка

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

s1zeist · Accepted Answer

85

s1zeist

01 марта 2023

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: