Факультет послевузовского обучения местного колледжа города Озарк пред лагает в общей сложности до - id1198573520200805 от Змей19 05.08.2020 00:05

Question

Информатика: Факультет послевузовского обучения местного колледжа города Озарк пред­ лагает в общей сложности до 30 курсов каждый семестр. Все курсы условно можно разбить на два типа: практические, такие как деревообработка, обу­ чение работе на компьютере, ремонт и поддержка автомобилей и т.п.; и гу­ манитарные, например история, музыка и изобразительное искусство. Что­ бы удовлетворить за обучающихся, в каждом семестре должно предлагаться не менее 10 курсов каждого типа. Факультет оценивает доход от одного

Змей19 · Accepted Answer

Var a,b,c,d,i,f,g,h,n:integer; begin writeln( введите число ); readln(a); g:=0; c:=0; d:=0; i:=0; f:=0; writeln( введите число для сравнения ); readln(h); for b:=a downto 1 do begin if a mod b = 0 then writeln( его делитель == ,b); if a mod b = 0 then c:=b+c; if a mod b = 0 then if b mod 2 = 0 then d:=d+b; if a mod b = 0 then if b mod 2 0 then i:=i+1; if a mod b = 0 then f:=f+1;  if a mod b = 0 then if b mod 2 = 0 then g:=g+1;i f a mod b = 0 then if b h then n:=n+1;  end; writeln( сумма его делителей...

MOGZ ответил