Нужно найти : (x-60)div(z+y^2) с ассемблера. Найдите ошибки в моем коде или напишите свой d_s segment
x db 70
y db 2
z db 6
d_s ends
c_s segment
assume ds:d_s,cs:c_s
begin:
mov ax, d_s
mov ds, ax
mov al, y
mov ah, y
mov bl, x
mov bh, z
mov cl, 60
mul ah
sub bl, cl
add bh, ah
mov ch, cl
mov dl, bh
div dl
mov ah, 4ch
int 21h
c_s ends
end begin
103
373
Ответы на вопрос:
Var a,min,n,i: integer; begin write('n = '); read(n); i: =1; while min mod 10 < > 6 do begin read(min); i: =i+1 end; for i: = i to n do begin read(a); if a < min then min: =a; end; writeln('min = ',min); end.
Популярно: Информатика
-
podgornovakatu20.09.2020 11:19
-
eeee0rock21.12.2020 02:08
-
elena09010718.03.2021 19:21
-
Виктория247807.12.2020 22:39
-
snagaytsev117.09.2021 00:09
-
Сережа891002.07.2020 00:23
-
bmelana14.10.2021 20:54
-
milana37201.09.2021 23:12
-
weazelhubozcy1c09.01.2023 19:55
-
yaprettylittle17.08.2020 11:45