Var n,a,b,c:integer;
begin
write('введите длину интервала: ');
readln(n);
a:=0;
c:=1;
for b:=1 to n do begin
if (b mod 3 =0) then a:=a+b;
if (b mod 2=0) then c:=c*b;
end;
writeln('сумма делящихся на 3=> ',a);
writeln('произведение делящихся на 2=> ',c);
end.
201 258 7DA Советую скачать двоичный калькулятор)
<em>var a, b, i :integer; </em>
<em> s :string;</em>
<em>begin </em>
<em> readln (a); </em>
<em> while a>0 do </em>
<em> begin</em>
<em> b:=a mod 10;</em>
<em> a:=a div 10;</em>
<em> write (b*b*b, ' ');</em>
<em> end;</em>
<span><em>end.</em></span>
1. <span>T=V информации / Скорость передачи; 500 мбит/сек = 62,5 мбайта/сек; t=12,5 мбайт / 62,5 мбайт/сек = 0,2 сек Ответ: 0,2 секунды
</span>