Код находится во вложении.
Текст программы на языке Pascal:
program p1;
var a: array [1..40] of integer;
var i,c:integer;
begin
c:=0;
for i:=1 to 40 do
begin
a[i]:=random(20);
write (a[i],' ');
if (a[i] mod 3) = 0
then c:=c+a[i];
end;
writeln;
writeln (c);
<span>end.</span>
1) 361*2=722<=<=7
Ответ: *2<=<=
2) 497<=49*2=98*2=196*2=392*2=784<=<=7*2=14
Ответ: <=*2*2*2*2<=<=
3)167*2*2*2*2*2=5344<=<=<=5*2=10
Ответ: *2*2*2*2*2<=<=<=*2
Ни один из действующих числовых типов данных вам не подойдет (даже int64 позволяет работать лишь с восемнадцатизначными числами). Следовательно нужно хранить число в строке или в массиве, и, реализовать функционал по выполнению операций над этими данными.