Информационная система состоит из баз данных, в которых накапливается информация, источника информации, аппаратной части ИС, программной части ИС, потребителя информации.
Объяснение:
losevev5619
21.08.2022
Var N,C,k,d:integer; Begin Write('N = ');ReadLn(N); For N:= 1 to N do Begin C:=N; k:=0; d:=0; While C<>0 do Begin k:=k+1; if C mod 10 <> 0 then if N mod (C mod 10) = 0 then d:=d+1; C:= C div 10 End; if d=k then Write(N,' ') End; End.
//Pascal ABC.NET Версия 2.2 Сборка 790 var s,d:string; n,i,j:integer; begin; readln(n); readln(d); i:=1; for j:=1 to n-1 do i*=10; j:=i; while i*10<>j do begin; inc(j); s:=inttostr(j); if pos(d,s)=0 then write(s:5); end; end.
Информационная система состоит из баз данных, в которых накапливается информация, источника информации, аппаратной части ИС, программной части ИС, потребителя информации.
Объяснение: