var a, b, c, n: integer;
begin
readln(a, b, c);
if a > b then n:= b else n:= a;
if n > c then n:= c;
writeln(n);
end.
<span>Add AX,[DI] - Прибавляет к регистру AX значения по адресу DI
Mov [SI],CI - Перемещение значения из регистра CI по адресу [SI]
Mov[DI],DI - </span><span><span>Перемещение значения из регистра DI по адресу [DI]
</span>
Jmp AX - Переход к строке под номером из регистра AX
Call BX
- вызов команды под номером BX
Примерно так...
</span>
Var
a1, a2: integer;
begin
a1 := 0;
a2 := 0;
writeln('enter the first value: ');
read(a1);
writeln('enter the second value: ');
read(a2);
if (a1*a2 mod 3 = 0) then
begin
writeln('da');
end
else
writeln('net');
end.
Я не совсем поняла задание . Но тем не мение вот что получается:
Селекционер проводит эксперименты над растением -«черный ящик».
Начинающий пользователь работает за компьютером. - Сестра изучает
наблюдает за испытаниями нового автомобиля. -Конструктор
яркость экрана домашнего телевизора-Папа регулирует
возможности фотокамеры, к которой нет документации -«черный ящик»
назначает лечение пациенту.-Врач ставит диагноз
старинные часы-Часовщик ремонтирует