S=640*64=40960 пикселей
N=64
i=5
V=S*i=40960 * 5=204800 бит=25600 байт=25 килобайт
Var a,b,c:integer;
Begin writeln('Введите длину в сантиметрах');
readln(a);
b:=a div 100;
c:=a mod 100;
writeln(a,' см = ', b, ',', c, ' м');
End.
Результат выполнения см. на рисунке
См файл
за январь нет оплаты так как нет предыдущих показаний
Excel таблицы не прикрепляются
var a:array[1..10,1..10]of integer;
i,j,k,s:integer;
begin
for i:=1 to 10 do for j:=1 to 10 do a[i,j]:=random(9)+1;
for i:=1 to 10 do begin for j:=1 to 10 do write(a[i,j],' '); if j=10 then writeln; end;
s:=1;
for i:=2 to 10 do begin k:=a[i,1];
for j:=2 to 10 do begin
if i mod 2 = 0 then if a[i,j]>k then k:=a[i,j];
if (j=10) and (i mod 2=0) then s:=s*k;
end;
end;
Var a,b,c,d:integer;
begin
writeln('введите 9 чисел ');
d:=9;
b:=0;
while (d<>0) do begin
read(a);
if (a>10) then begin b:=a+b; c:=c+1;end;
d:=d-1;
end;
writeln('среднее арифметическое ',b/c);
<span>end.</span>