Ответ:
var a,b,k:integer;
begin
readln(a,b);
for k:=a to b do if(k mod 2=1) then write(k, ' ');
end.
Объяснение:
Надеюсь будет понятно!!!
Зло проиграет всегда ведь наш девиз добрата!!
Var s:string;
n,l,k,i:integer;
begin
write ('Введите строку: ');
readln(s);
n:=0;
l:=0;
k:=0;
for i:=1 to length(s) do
begin
n:=ord('?');
l:=ord(s[i]);
if n=l then k:=k+1;
end;
WRITELN;
if k=0 then writeln ('Знак вопроса ни разу не встретился в строке.')
else writeln ('Знак вопроса встретился ',k,' раз строке.');
end.
Дано
N1=256
N2=2 ( цвета черный и белый)
v2=v1-70
Найти v1/v2
V1=a*b*I1 I- глубина цвета
V2=a*b*I2
V1/v2=I1/I2 ( а и b сократится при делении)
Найдем I1 и I2 из формулы Хартли N=2^I
256=2^I I1= 8
2=2^I I2=1
V1/(v1-70)= 8/1
V1/(v1-70)=8 решим уравнение по свойству пропорции
8v1-560=v1
7v1=560
v1=80 байт