Var m,n,i,j:longint;
begin
readln(n,m);
if m > n then begin
for i:= n to m do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end else begin
for i:= m to n do begin
for j:= 1 to i do begin
write(i,' ');
end;
writeln;
end;
end;
end.
256-цвет ето 8бит
2-цвета ето 1бит
8-1=7бит убрали
7*1024=7168байта
7168*8=57344бита
х*8-х*1=57344 (Где х-количество пикселей)
57344/7=х
х=8192 пикселей
8192*8=65536
65536/8/1024=8Кб
Const n =5;
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end
Ответ:
Объяснение:
Program prog;
var
res:=0;
begin
for var i:= 100 to 999 do
begin
if i mod 26 = 11 then res+=1
end;
println(res);
end.
Чтобы попасть в точку К, надо попасть в точки Е, В, Г, Ж.
В точку Е есть 3 путя.
В точку В - 2.
В точку Г - 2.
В Ж - 2.
Суммируем: 3+2+2+2=9 путей.
Ответ: 9.