VB. Dim x As Integer Dim y As Integer Dim z As Integer x = InputBox("Введите x") y= InputBox("Введите y") z = InputBox("Введите z") If (x+y+z) > 0 then MsgBox("YES") else MsgBox("NO")
Вы можете уменьшить размер файлов и пространство на диске с сжатия рисунков в документе. параметры сжатия уменьшают как размер файл, так и размеры рисунков, в зависимости от того, как планируется использовать изображение, например для просмотра на экране или в сообщении электронной почты. сжать можно все рисунки в файле или только специально выделенные. если документ сохранен в более старом формате doc, то параметр "уменьшить размер файла" не будет доступен в меню "файл". чтобы использовать параметр "уменьшить размер файла", сохраните документ в новом формате docx.
Dim x As Integer
Dim y As Integer
Dim z As Integer
x = InputBox("Введите x")
y= InputBox("Введите y")
z = InputBox("Введите z")
If (x+y+z) > 0 then MsgBox("YES") else MsgBox("NO")