<span>var
s : string[50];
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin
isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin
f := false;
repeat
j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i;
end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
<span>end.
недавно такую писала :)</span></span>
а) третий рисунок
б) 4 раза
508,03=5*10^2+0*10^1+8*10^0+0*10^-1+3*10^-2
1101,001=1*2^3+1*2^2+0*2^1+1*2^0+0*2^-1+0*2^-2+1*2^-3
C=12 E=14 D=13 A=10 значит
CE,DA=12*16^1+14*16^0+13*16^-1+10*16^-2
А вопрос какой?
можно сказать слово
весточка
У меня получилось m=-4, k=10
Просто подставляй значения и проверяй условие, если условие верно то m будет=значению Д под этим номером.
1)Берем Д(1)=6 проверяем 6 меньше 2*6 ДА
m присваиваем значение Д(1),т.е 6
2)Берем Д(2)=-1 Сравниваем -1 меньше 2*6 ДА
<span>m присваиваем значение Д(2),т.е -1 и Т,Д до конца</span>