Var a:string;
i,n:integer;
begin
write('Введите слово ');
readln(a);
n:=length(a);
writeln('Введите номер буквы ');
readln(i);
delete(a,i,1);
writeln(a);
readln;
<span>end.</span>
Лучшее решение и благодарность.
var n, x, y, i:real;
begin
read (n, x, y);
if n>=x/2+y then write (''Хватит',' ') else write ('Не хватит');
<span>end.</span>
Ответ:
Вот код
Объяснение:
Program pr2(output);
var x,y:real;
var i:integer;
begin
x:=-5;
writeln(' x y ');
for i:=1 to 21 do begin
y:=5-x*x/2;
writeln(x:4:1,'|',y:5:2);
x:=x+0.5
end;
end.
1) 52-28
52 прям.код 0 0110100 (первый ноль знак числа +)
- 28 пр. код 1 0011100 (1 - знак "-")
- 28 об.код 1 1100011 (образуется путем инвертирования)
-28 доп. код 1 1100100 (<span>образуется путем прибавления 1 к младшему разряду обр.кода)
</span>0 0110100 +<span>1 1100100=1 0 0011000 (1 -перенос отбрасывается)
</span>+<span>11000 = 16+8=24 (10)
</span>2) 14 пр.код 0 0001110
-81 пр.код 1 1010001
-81 обр.код 1 0101110
-81доп. код 1 0101111
0 0001110+1 0101111= 1 0111101 это допол.код -67
При переводе в прямой биты результата инвертируются и к младшему разряду + 1
1 1000010+1=1 1000011= - 64+3= - 67
Ответ:
3,частично 1
Объяснение:
Ибо структура у всех записей одна и та же