Var
i, k, c, tetka1, tetka2: integer;
begin
readln(k);
readln(c);
tetka1 := 0;
tetka2 := 0;
for i:=1 to 3*60 do
begin
inc(tetka1, k);
inc(tetka2, c);
end;
if tetka1 > tetka2 then
writeln('Первая тётка говорит больше на ', tetka1 - tetka2, ' слов')
else
if tetka1 < tetka2 then
writeln('Вторая тётка говорит больше на ', tetka2 - tetka1, ' слов')
else
writeln('Обе тётки болтают с одинаковой эффективностью');
<span>end.</span>
<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 s,a,b:integer;
begin
read(a,b);
s:=(a+b)*7;
write(s);
<span>end.</span>
Линейным называется алгоритм, в котором все этапы решения задачи выполняются строго последовательно. Т.е. линейный алгоритм выполняется в естественном порядке его написания и не содержит разветвлений и повторений. Например, линейным является следующий алгоритм посадки дерева:<span>1) выкопать в земле ямку;
2) опустить в ямку саженец;
3) засыпать ямку с саженцем землей;
</span><span>4) полить саженец водой.
</span>
Private Sub Command1_Click()
Dim myArray(3,3) as Integer
Dim count_pos as Integer
Dim cout_neg as Integer
Dim i as Integer
Dim j as Integer
count pos = 0, count_neg = 0
For i = 0 to 3
For j = 0 to 3
If (myArray(i,j) > 0) Then
count_pos = count_pos+1
Else if (myArray(i,j) < 0) Then
count_neg = count_neg+1
Else
End If
Next j
Next i
MsgBox("Положительных чисел " & count_pos & " ,а отрицательных " & count_neg);
EndSub
