№1
Стиральная машина, утюг, телевизор
№2
2(рубанок) и 4(швейная машинка)
№3
1-5,6
2-7
3-3
4-4
5-6
6-1
7-2
Если это живой объект, то управлять можно только с его согласием.
По логике:
Ветер гуляет по морю
Ветер подгоняет кораблик
Хм...видимо вопрос не правильный, у двузначного числа сумма цифр не может быть однозначным числом, только двузначным!
вот тебе код Pascal:
<span>Код Pascal
<span>1
2
3
4
5
6
7
8
9
<span>var a,b,n,kod:integer;
begin
write('Введите двузначное число - ');
readln(n);
a:=n div 10;
b:=n
mod 10;
if a+b>9 then writeln('Сума цифр двузначное число')
else
writeln('Сума не двузначное число');
end.</span></span></span>
Sub HOK()
Dim c As Long, NOK As Long
a = CInt(InputBox("Введите первое число"))
b = CInt(InputBox("Введите второе число"))
If a = b Then
NOK = a
Else
c = a * b
Do
If a > b Then a = a - b Else b = b - a
Loop Until a = b
NOK = c / a
End If
MsgBox "НОК=" + Str(NOK)
End Sub