Uses crt;
var a:array[1..4] of integer;
sum,i:integer;
begin
clrscr;
writeln('Введите 4 целых числа:');
for i:=1 to 4 do
begin
read(a[i]);
if a[i]mod 3=0 then sum:=sum+a[i];
end;
writeln('Сумма чисел, кратных трем: ',sum);
<span>end.</span>
A = 25
b = 4
a mod b(= 6) (6 не = 4)
идем по блоку 'нет'
a := а mod b
Ответ: 6
Lisp,Java,Python,Prolog . Но больше всего пишут в области ИИ на Python так как он очень быстрый и удобный. Также под него есть огромное кол-во библиотек под ИИ.
Http://ideone.com/Fr4RGn вот тут весь код ........................................................................
Ответ:Блин,тоже олимпиада.Я тоже не могу это сделать.А ты сделал 1,3,4
Объяснение: