1 5 2 3
Номера сетей или узлов (проще говоря, цифры, которые отделяет точка) должны быть не больше 256, следовательно и не могут быть 4х значными. Подбираем числа так, чтобы все сходилось
var a: array [1...n] of integer;
j, k, max: integer:
begin
for j:=1 to n do
readln(a[j]);
sum:=0
For j:=1 to n do
if a[j]mod=0 then sum:=sum*a[j]
Writeln(sum);
end.
Объясните в чем суть задания
Lisp,Java,Python,Prolog . Но больше всего пишут в области ИИ на Python так как он очень быстрый и удобный. Также под него есть огромное кол-во библиотек под ИИ.
почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.