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>
function myFunction(x: real):real;
begin
if (x>=-10) and (x<2) then
myFunction:=sqr(x)+4*x-7 else
if ((x<-10) and (x<>0)) or (x>=2) then
myFunction:=1/(sqr(x)+4*x-7);
end;
var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=myFunction(x);
writeln('y = ',y);
end.
Var
s: integer;
begin
readln(s);
case s mod 10 of
1: writeln('Копейка');
2..4: writeln('Копейки');
5..9, 0: writeln('Копеек');
end;
<span>end.</span>
C++ c+ pascal java и ещё другие