var
a,b,i,n,k,z:integer; {k, z - количество делителей числа}
BEGIN
readln(a,b); {Cчитаем эти два числа}
k := 1;
z := 1;
if a > b then
n := a
else
n := b;
for i := 2 to n do
begin
if (a >= i) and (a mod i = 0) then
k := k + 1;
if (b >= i) and (b mod i = 0) then
z := z +1
end;
if k = z then
write('Одинаковое количество делителей')
else
if k > z then
write('Число a имеет больше делителей')
else
write('Число b имеет больше делителей')
END.
Если что непонятно, как получается - пиши.
1)это процесс передачи информации о состоянии объекта объекту.
2) алгоритм в системе без обратной связи имеет линейную (последовательную) структуру.
3)при наличии обратной связи алгоритм может быть более гибким, допускающим проверку условий, ветвления и циклы
4)системы, в которых роль объекта поручается компьютеру, называются автоматическими системами с программным .
5) объект - учитель, а ученики являются объектом . прямой канал передачи информации - передача знаний учителем, а обратная связь - ответы учеников, результаты контрольных работ, сочинения и т. п. учителю обратная связь дает информацию о достижении поставленных им целей - когда ученики выполнили .
6)цикл: учитель выставляет оценки в журнал; ветвление: если иванов , то учитель его выгоняет, если нет(иначе) оставляет в классе.
7)модель с обратной связью
8)информативная доска с голосовой подачей информации. используется видео микрофон с распознованием ученика.(можно сделать для каждого ученика отдельную клавиатуру с которой он будет вводить вопрос,тем самым повышая мобильность системы)
из плюсов: мобильность,скорость работы простое .
из минусов: индивидуальность,стандартное мышление
var a,b,i,nda,ndb:integer;
begin
readln(a,b);
nda := 0;
ndb := 0;
for i := 1 to a do
if (a mod i = 0) then inc(nda);
for i := 1 to b do
if (b mod i = 0) then inc(ndb);
if (nda > ndb) then
writeln(a, ' has more divisors than ', b)
else if (ndb > nda) then
writeln(b, ' has more divisors than ', a)
else
writeln(a, ' and', b, ' has equal number of divisors')
end.