1)
Program n1;
var a,b: real;
begin
readln(a,b);
writeln('разность: ',a-b);
writeln('произведение: ',a*b);
writeln('сумма: ',a+b);
writeln('частное: ',a/b);
end.
2)
Program n2;
var a,b,c: real;
begin
readln(a,b);
c:=sqrt(a*a+b*b);
writeln('площадь: ',0.5*a*b);
writeln('периметр: ',a+b+c);
end.
3)
Program n3;
var d1,d2,d3,a: integer;
begin
write('введите число: ');
readln(a);
d1:= a div 100;
d2:=a div 10 mod 10;
d3:=a mod 10;
writeln(d3,d2,d1);
end.
<span>т.к. мощность компьютерного алфавита равна 256, то I = 1 байт. Поэтому К = 1 1024/1 = 1024 символов в тексте. 3) V = 1024/10 = 102 сим/мин. Ответ: скорость ввода текста 102 символа в минуту.</span>
mov ax,1
mov bx,ax
<span> mov cx,99
</span><span>a: add ax,2
add bx,ax
cmp ax,cx
</span><span> jne a
mov ax,bx
</span><span> mov bl,10
</span><span> mov cx,0
</span><span>b: div bl ; в ah - частное, al - остаток
</span><span> add al,48 ; в al - код младшей цифры
</span><span> push al
</span><span> inc cx
</span><span> cmp ah,0
</span><span> jne b
</span><span> ; вывод на экран через BIOS
</span><span>c: mov ah, 0eh
</span><span> pop al
</span><span> int 10h ; вывод символа
</span><span> dec cx
</span><span> jnz c
</span><span> ; завершение программы
</span><span> mov ah, 4ch
</span><span> mov al,00h
</span><span> int 21h
</span><span>
</span>
S:=0;
for i:=1 to 7 do begin
s:=s+sin(x);
x:=x+x;
end;
Остальную программу сам допишешь.