Var a,b,i:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
for i:=a to b do if i mod 3 = 0 then write(i,' ');
writeln;
<span>end.
Пример:
a=10
b=20
<span>12 15 18 </span></span>
Вот, получилось 2 решения, но я перепроверил, правильно, вроде, не знаю, почему их двое..)
Var
n,b,i,k,r:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(b);
if b>=8 then
begin
k:=k+1;
r:=r+b;
end;
end;
writeln('Количество сдавших:',k);
writeln('Среднее значение:',r/k);
end.
600мб=600 000кб
600 000 КБ:500=120 фотографий всего
120×6=720с понадобиться
Ответ:720секунд