Файл, полное имя которого было c: \txt\test_1.c, сохранили в подкаталоге work корневого каталога диска d. каково полное имя сохраненного файла? выберите один ответ: d: \txt\work\test_1.c d: \work\test_1.c d: \work\txt\test_1.c d: \work\test_1.d
200
454
Ответы на вопрос:
Если сумма цифр это всё, то вот. работает не только для 4-значных чисел. var a, b, sum : integer; begin readln(a); while a > 0 do begin b : = a mod 10; sum : = sum + b; a : = a div 10; end; writeln(sum); end.
Популярно: Информатика
-
Olka190918.12.2020 10:45
-
Daria231620.05.2022 21:03
-
artemka22228812.11.2020 14:33
-
Alihan160010.06.2023 16:11
-
alina2000klimenko05.07.2022 16:47
-
petrenko2000222.02.2023 00:06
-
svetlana27823.05.2020 05:12
-
BOLYUBASH133711.05.2021 14:41
-
Solnyshko808025.08.2021 06:49
-
korolevdanil9917.10.2021 10:02