program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
Const NN=50;
Var
a:array [1..NN,1..NN] of integer;
maxi,maxj,mini,minj,i,j,n,m:integer;
begin
writeln('Введите кол-во строк и столбцов массива: ');
readln(n,m);
for i:= 1 to n do
for j:= 1 to m do
begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
writeln; writeln('Получившийся массив: ');
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:4);
writeln;
end;
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
for i:= 1 to n do
for j:= 1 to m do
begin
if a[i,j]>a[maxi,maxj] then
begin
maxi:=i;
maxj:=j;
end
else if a[i,j]<a[mini,minj] then
begin
mini:=i;
minj:=j;
end;
end;
writeln; writeln('Получившийся массив: ');
i:=a[maxi,maxj];
a[maxi,maxj]:=a[mini,minj];
a[mini,minj]:=i;
for i:= 1 to n do
begin
for j:= 1 to m do
write(a[i,j]:4);
writeln;
end;
end.
X = 49. Программа обработает его и выдаст "94". Сумма цифр 4 + 9 = 9 + 4 = 13.
Ответ А будет лишним, остальные варианты это пакет office от ms
256 цветов - 8-ми битная шкала цветности, т. е. 8 бит на точку.
<span>120 байт = 960 бит. </span>
<span>960 бит/8 битов = 120 точек</span>