===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
Фрактальная графика, также как векторная и трёхмерная,
является вычисляемой. Её главное отличие в том, что изображение строится по
уравнению или системе уравнений. Поэтому в памяти компьютера для выполнения
всех вычислений, ничего кроме формулы хранить не требуется. <span>Только изменив
коэффициенты уравнения, можно получить совершенно другое изображение. Эта идея
нашла использование в компьютерной графике благодаря компактности
математического аппарата, необходимого для ее реализации. Так, с помощью
нескольких математических коэффициентов можно задать линии и поверхности очень
сложной формы.</span>
<span>1. "в одном килограмме 1000 грамм" - считая пробелы в этом предложении 29 символов - следовательно предложение вест 29 байт
2. 35-10=25 значений, 25 лежит в рамках от 17 до 32, следовательно одно значение будет весить 5 бит. так как 2^5=32. было 27 измерений - 5*27=135. Ответ : объем всех результатов - 135 бит
3. Одна лампа равна одному биту, так как можно представить, что включено - 1, выключено - 0.
аналагично со второй задачей 200 лежит в рамках от 128(2 в седьмой степени) до 256(два в восьмой степени), значит для 200 разных сигналов потребуется 8 ламп</span>
Var a,b,s:real;
begin
write ('Введите длину: ');
readln (a);
write ('Введите ширину: ');
readln (b);
s:=a*b;
writeln ('Площадь = ',s);
end.
Program abc;
Const
n=3;
m=3;
Var a:array[1..n,1..m] of integer;
b,y,i,j,sum:integer;
srd:real;
Begin
Writeln('Введите числа массива: ');
For i:=1 to n do
For j:=1 to m do
Begin
Write('a[',i,',',j,']= ');
Readln(a[i,j]);
if a[i,j]>0 then
begin
sum:=sum+a[i,j];
inc(b);
end
else
If a[i,j]<0 then
Inc(y);
End;
If sum>0 then
begin
srd:=sum/b;
Writeln('Среднее =',srd);
end
else
Writeln('Нет положительных членов массива');
If y>0 then
begin
Writeln('Количество отрицательных элементов =',y);
end
else
Writeln('Нет отрицательных членов массива');
End.