Ответы на вопрос:
program n1;
var a,c1,c2,c3: integer;
begin
writeln('введите число');
read(a);
c1: =a mod 10;
c2: =(a div 10) mod 10;
c3: =(a div 100) mod 10;
writeln('кол-во сотен = ',c3);
writeln('кол-во десятков = ',c2);
writeln('кол-во единиц = ',c1);
end.
Популярно: Информатика
-
memasik6716.06.2020 02:37
-
Samoilov290321.09.2020 21:58
-
arturshubin2419.08.2020 20:35
-
alinadogarowa17.04.2023 15:07
-
elizabetfox122218.03.2022 22:54
-
anyalogunova129.11.2022 04:51
-
emilinloveTV04.07.2021 14:49
-
Anastasiya2112610.09.2021 05:16
-
Ученик1209009.03.2022 21:14
-
Аня14218.12.2022 08:01