Составить программу для нахождения цифр четырехзначного числа program n_221; var a, b, c, d, abcd: longint; что
212
228
Ответы на вопрос:
Var a,n : integer; begin readln(a); while a > 0 do begin n: = a mod 10; a: = a div 10; writeln(n) end; end.
Популярно: Информатика
-
goum113.03.2022 17:20
-
Котик505мяу01.12.2020 01:07
-
alixegp073ii19.07.2022 09:43
-
Лина1488103.04.2021 21:32
-
andbliev23.10.2020 11:48
-
Al201714.08.2020 22:09
-
Uliana4444116.05.2021 04:02
-
vika7867829.11.2022 15:29
-
pedro240801.05.2023 07:26
-
ilyavasyukov22820.10.2021 16:50