очень Разработать командный файл, который формировал бы ежемесячный отчет об изменениях в рабочем каталоге (файлы созданные, удаленные). Необходимо хранить список файлов в файле истории.
247
293
Ответы на вопрос:
Var a,b,c,d: integer; begin for a: = 100 to 999 do begin b: =a div 100; c: =(a div 10) mod 10; d: =a mod 10; if (b< > c)and(b< > d)and(c< > d) then write(a,' ') end; end.
Популярно: Информатика
-
денис964503.10.2022 03:01
-
urspacce11.11.2020 02:22
-
FJcjfjvj21.05.2021 17:02
-
llovich02.11.2021 23:02
-
Cfynks22.03.2021 08:17
-
Hskke18.10.2020 22:39
-
ilyxa2420.12.2020 21:43
-
tanadzhi0120.11.2020 08:07
-
Alikhan66604.05.2020 00:52
-
tamila2002саша200409.05.2023 17:41