Ответы
Ответ дал:
0
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")
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")
Ответ дал:
0
Да
Ответ дал:
0
Pascal
var x,y,z:integer;
begin
readln(x,y,z);
if (x+y+z)>0 then writeln('YES')
else writeln('NO');
end.
Надеюсь на "Лучший ответ"
var x,y,z:integer;
begin
readln(x,y,z);
if (x+y+z)>0 then writeln('YES')
else writeln('NO');
end.
Надеюсь на "Лучший ответ"
Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад