113₍₈₎<1101100₍₂₎(154₍₈₎)
58₍₁₆)>45₍₈₎(25₍₁₆₎)
288₍₈₎<1050₍₁₀₎(2032₍₈₎)
1245₍₁₀₎>100111₍₂₎(39₍₁₀₎)
200₍₁₀₎<159₍₁₆₎(345₍₁₀₎)
1111110₍₂₎(7E₍₁₆₎,Е-14)<7F₍₁₆₎(F-15)
1)var a,b,i:integer;
begin
readln(a,b);
for i:= 1 to 100 do
if (i mod a<>0) and (i mod b<>0) then write(i,' ')
<span> end.
2)</span>var a,b,i,k:integer;
begin
readln(a,b);
k:=0;
for i:= a to b do
if (i mod 7=0) xor (i mod 9=0) then k:=k+1;
write(k)<span>
end.
3)</span>var pol,i,otr,a:integer;
begin
otr:=0;
pol:=0;
for i:= 1 to 10 do
begin
readln(a);
if a>0 then pol:=pol+1;
if a<0 then otr:=otr+1
end;
if pol>otr then write('Положительных больше');
if otr>pol then write('Отрицательных больше')<span>
end.
4) </span>var i,a,b:integer;
begin
readln(a,b);
for i:= a to b do
if (i mod 3 =0) or (i mod 7=0) then write(i,' ',i,' ') else write(i,' ')
<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n,p:integer;
var s:string;
for var a:=1 to 9 do
for var b:=0 to 9 do
for var c:=0 to 9 do begin
n:=100*a+10*b+c;
s:=(n*n).ToString.Right(3);
p:=Pos(a.ToString,s);
if p>0 then begin
Delete(s,p,1);
p:=Pos(b.ToString,s);
if p>0 then begin
Delete(s,p,1);
if s=c.ToString then Write(n,'(',n*n,')',' ')
end
end
end
end.
<u>Результат</u>
205(42025) 376(141376) 421(177241) 625(390625) 963(927369)
Каждый символ это двузначное шестнадцетиричное число от 0x00 до 0xFF. Половина этого диапазона совместима с кодировкой ASCII, другая половина - с Windows-1251
Если коды до 0x80, то вбиваешь в поиск по картинкам "Таблица ASCII" и декодируешь по ней, если больше 0x80, то вбиваешь в поиск "Таблица Windows 1251" и пользуешься ей.
В цикле While (пока в бочке не будет необходимых X литров воды) прибавлять по N литров (1,2,3,4,5 - в разных циклах). Т.е. бочка = бочка + Nлитровый сосуд. На проверку условие: Бочка<X литров. Внутри цикла считаем, сколько раз он выполнялся. По окончании считаем разницу между объемом бочки и фактическим количеством воды, налитым в итоге
