Я думаю вот так: мальчик умеет обрабатывать информацию, робот может ее воспринимать, компьютер хранить, а книга передавать. Вот так я думаю. Удачи!
Var a:array [1..10] of integer;
I,s:integer;
begin
randomize;
s:=1;
for I:=1 to 10 do
begin
a[I]:=random(100);
if (a[I] mod 3 =0)and(a[I] mod 9<>0) then
s:=s*a[I];
write(a[I]:4);
end;
writeln;
writeln(s);
end.
Почитай на КиберФорум..там всё расписано.
Справится даже ребёнок!
Циклический алгоритм – описание действий, которые должны повторяться указанное число раз или пока не выполнено заданное условие.